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Abstract 


This  report  describes  a numerical  method  based  on  a finite  difference  technique  for  simulating 
indoor  airflows  in  a building  using  a K-e  turbulence  method.  The  model  treats  three  dimensional 
non-isothermal  turbulent  flows  using  the  Boussinesq  approximation  for  buoyancy.  It  solves  the 
resulting  nonlinear  system  of  momentum,  energy  and  turbulence  equations  by  an  explicit  time 
marching  technique  to  obtain  a solution  for  either  a steady  state  or  transient  flow.  An 
upwind/central  combination  scheme  with  arbitrary  specification  for  the  switching  parameter  is 
used  to  approximate  the  convective  terms.  This  switching  parameter  can  be  specified  at  each 
point  in  the  flow  regime  allowing  for  different  strategies  in  different  flow  regions.  The  switching 
technique  includes  both  the  central  and  hybrid  schemes  found  in  the  literature.  A pressure 
relaxation  method  is  used  to  satisfy  the  Poisson  equation  for  continuity.  The  model  handles  a 
variety  of  flow,  pressure,  temperature  and  heat  flux  boundary  conditions  including  prescribed 
inflows,  outflows  by  either  prescribing  the  flow  or  pressure,  wall  boundary  conditions  together 
with  heat  flux  and  temperature  and/or  heat  transfer  coefficients  specified  on  the  boundary. 
Volumetric  heat  sources  are  also  included.  The  model  has  the  ability  of  handling  an  arbitrary 
number  of  obstacles  in  the  flow  region.  This  permits  the  modeling  of  the  effect  of  furniture  and 
partitions  on  the  flow  field  and  also  provides  a means  for  modeling  multi-room  airflows.  The 
predicted  airflows  can  be  used  in  a companion  computer  model  for  predicting  the  three-dimensional 
dispersion  of  contaminants  in  a building.  The  computer  code  for  this  model  exists  both  in  a 
vectorized  version  for  the  Cyber  205  supercomputer  and  in  a non-vectorized  version  which  has 
been  successfully  run  on  a Sun  3/260  workstation  with  a floating  point  processor  board  (based  on 
a Weitek  1167)  under  a UNIX  operating  system  on  a Compaq  386/25  computer  equipped  with 
either  an  Intel  80387  or  a Weitek  3167  coprocessor  under  an  extended  DOS  operating  system. 
The  relative  performance  of  these  systems  for  the  examples  considered  in  this  report  are  1 second 
per  iteration  for  the  Cyber  205, 9 seconds  for  the  Compaq  386/25  with  a Weitek  3167  coprocessor, 
30  seconds  for  the  Compaq  386  with  a 387  coprocessor  and  90  seconds  for  the  Sun  3/260  under 
UNIX.  Isothermal  simulations  seem  to  converge  in  approximately  10,000  iterations  and  non- 
isothermal  simulations  in  approximately  30,000  iterations.  Several  ideal  and  practical  applications 
of  the  model  are  presented  and  the  results  of  the  simulations  are  compared  with  existing 
experimental  data  contained  in  the  literature.  ‘ 


1 Key  Words:  Airflow,  building  ventilation,  contaminat  dispersal,  finite  difference  method, 
indoor  air  quality,  mathematical  modeling,  room  convection,  temperature,  turbulence,  velocity. 
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1.  Introduction 

Although  it  is  well  known  that  the  indoor  environment  is  strongly  affected  by  airflow,  especially 
when  the  space  is  conditioned,  the  mechanisms  driving  indoor  airflow  are  not  well  understood. 
In  Japan,  advanced  computer  simulation  techniques  to  predict  room  air  movement  have  been 
available  for  several  years  and  have  been  used  for  evaluating  both  thermal  comfort  and  indoor  air 
quality.  To  date,  such  computer  simulation  techniques  have  not  widely  been  used  in  the  United 
States.  However,  increasing  demand  for  efficient  clean  rooms  needed  for  high-tech  factories  and 
for  the  optimal  design  of  air  conditioning  systems  for  office  buildings  is  stimulating  extensive 
research  on  the  micro  modeling  of  indoor  airflow  distribution. 

Conventional  methods,  such  as  single  or  multi-zonal  methods  for  predicting  room  air  movement 
or  simple  calculations  based  on  free  jet  decay  experiments,  are  not  useful  room  air  movement 
predictions  because  of  their  inherent  inability  to  extend  the  applicable  range  of  calculation  needed 
for  a more  detailed  prediction.  Alternative  approaches  based  on  more  fundamental  fluid  theory 
are  required. 

This  report  describes  one  possible  approach,  a numerical  flow  calculation  method,  based  on  the 
K-e  turbulence  model,  and  discusses  its  reliability  and  accuracy  with  respect  to  several  experimental 
observations. 

A vectorized  three  dimensional  computer  simulation  program  called  "EXACT",  which  has  been 
recently  installed  in  the  CYBER  205  computer  system  of  the  National  Institute  of  Standards  and 
Technology  is  discussed.  Non- vectorized  versions  of  this  program  have  also  been  implemented 
on  a Sun  3/260  workstation  and  on  a Compaq  386/25  computer  using  a DOS  extender. 

Although  the  prediction  method  given  here  requires  large  amounts  of  computation  even  with 
advanced  and  highly  efficient  scientific  computers,  the  authors  believe  that,  with  the  advances  in 
both  super  and  workstation  computer  technology  and  the  theoretical  development  in  turbulence 
theory,  it  has  a fair  prospect  to  become  a practical  prediction  method  in  the  near  future. 

1.1  Indoor  Airflow  and  Turbulence 

Although  most  available  flow  calculation  methods  employ  the  Navier-Stokes  equation  as  the 
basic  starting  point,  different  characteristic  flow  regimes  require  markedly  different  numerical 
calculation  strategies. 

Consider  the  requirements  for  the  numerical  calculations  of  low  speed  oil  flow  in  a pipeline 
and  the  airflow  around  a car  which  is  moving  at  60mph.  In  the  first  case,  a laminar  flow 
calculation  method  would  be  appropriate;  yet,it  would  not  be  valid  in  the  second  case  since 
turbulence  induced  by  the  movement  of  the  car  must  be  taken  into  consideration.  This  is  in 
spite  of  the  fact  that  both  flows  are  described  adequately  by  the  same  fundamental  equations. 
The  first  task  in  the  development  of  a model  for  predicting  room  air  movement  is  to  determine 
which  regime,  turbulent  or  non- turbulent,  the  indoor  airflow  belongs  to.  Generally,  in 
developing  a numerical  calculation  method  for  airflow,  a representative  Reynold’s  number 
Re  is  useful  in  deciding  whether  the  flow  to  be  considered  is  laminar  or  turbulent.  The 
representative  Reynold’s  number  is  defined  as 


V 


(1.1) 


1 


where 


Uo  is  a representative  velocity  scale  (m/s) 

Lq  is  a representative  length  scale  ( m ) 

V is  the  kinematic  viscosity  (mVs)  (for  air  v = 1.5  x lO'^mVs 

For  the  discharge  airflow  related  to  air-conditioning  devices,  the  following  values  have  been 
determined  experimentally  as  a critical  representaitve  Reynolds  number. 

» pl^ng  jets 

:where  Uq  is  taken  as  jet  exit  velocity  and  Lq  slit  width  respectively. 

This  means,  for  instance,  that  the  jet  from  1.5  cm  slit  type  air  inlet  becomes  turbulent 
if  its  exit  velocity  is  larger  than  3 or  5 cm/s. 

• round  lets 

-.where  Uq  is  taken  as  jet  exit  velocity  and  Lq  as  the  diameter  of  the  round  nozzle 
respectively.  This  means,  for  instance,  that  the  jet  from  a nozzle  with  a 15  cm  diameter 
becomes  turbulent  if  its  exit  velocity  is  larger  than  3~20cmls. 

These  experimental  data  show  that  airflow  around  the  supply  registers  in  an  actual 
air-conditioned  building  is  always  turbulent  under  normal  conditions. 

For  flows  near  the  wall,  experimental  data  on  forced  convection  over  the  flat  plate  may  be 
useful. 

• flow  over  a flat  plate 

Re^^  :where  a wind  tunnel  type  flow  is  assumed  and  Uq  taken  as  velocity  outside  the 
wail  boundary  layer  and  and  Lg  as  the  distance  from  the  leading  edge  of  the  flat  plate 
respectively.  This  means  that  wall  boundary  layer  does  not  become  completely  turbulent 
unless  the  length  scale  is  greater  than  4.5~6m  when  the  velocity  is  of  the  order  of  1 
m/s. 

Though  it  is  not  clear  that  the  actual  near  wall  flow  in  an  air  conditioned  room  actually 
corresponds  to  this  type  of  flow,  this  suggests  that  there  is  a strong  possibility  that  turbulent 
and  non-turbulent  flow  portions  coexist  in  the  same  room  space.  In  spite  of  this  possibility, 
the  currently  available  numerical  method  is  limited  to  single  phase  problems  either  laminar 
or  turbulent  flows. 

It  is  necessary,  therefore,  first  to  assume  which  condition  is  dominant  in  the  overall  condition 
of  the  room  flow  field.  In  the  case  of  air-conditioned  rooms  using  forced  air  systems,  due  to 
the  existence  of  the  jet  produced  by  the  room  air  handling  system,  the  fully  turbulent 
assumption  is  probably  justified  as  a first  appoximation  since  the  main  interest  in  room  airflow 
simulation  is  the  accurate  prediction  of  the  location  of  the  stream  of  incoming  air  and  resultant 
recirculating  regions  produced  by  this  stream  of  air. 

In  order  to  improve  the  current  full  turbulence  model  and  to  extend  its  range  of  applications, 
more  fundamental  research  for  weak  turbulent  flow  is  required. 

1.2  History  of  Numerical  Prediction  Method  of  Indoor  Air  Distribution  in 
Japan 

The  first  attempt  at  the  numerical  calculation  of  indoor  airflow  in  Japan  was  made  by  Terai* 
in  1959  for  the  case  of  two-dimensional  buoyant  convection  flow.  Since  then,  many  Japanese 
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researchers^*^  have  made  extensive  efforts  to  develop  a numerical  prediction  method  which 
could  be  used  as  a practical  tool  for  indoor  environmental  design.  Given  below  is  brief 
description  of  the  history  of  these  activities  in  Japan. 

The  first  practical  and  important  contributions  were  made  by  Tsuchiya^’  Kaizuka*  and 
Yamazaki^  independently  for  the  two-dimensional,  isothermal  laminar  flows.  These  research 
efforts  were  followed  by  those  of  Nomura,  Matsuo,  Kaizuka,  Sakamoto  and  Endo*°  for 
three-dimensional  laminar  flows  using  the  Marker  and  Cell  (MAC)  method.  They  also  made 
qualitative  comparisons  of  their  calculation  results  with  flow  visualization  experiments. 
Although  their  work  was  limited  to  laminar  flow  conditions,  the  numerical  algorithm  used 
by  these  authors  was  virtually  the  same  as  the  current  standard  numerical  method  used  in 
Japan  today. 

The  first  Japanese  research  to  introduce  the  turbulence  concept  into  the  calculation  of  room 
airflows  was  the  work  by  Yoshikawa  and  Yamaguchi**  for  two-dimensional  high  Reynolds 
number  flows  using  an  one  equation  model  approach.  After  this  research,  Nomura,  Matsuo, 
Kaizuka,  Sakamoto  and  Kamata*^’*^  calculated  three-dimensional  forced  and  natural  con- 
vection flows  using  the  K-e  turbulence  model  and  the  MAC  method.  The  predictions  using 
this  model  were  compared  to  corresponding  model  experiments. 

After  their  work,  Kato,  Sato*"*,  Kunihira*^,  Murakami*^,  Kamata,  Kurabuchi*^’**  and  Matsuo*^ 
attempted  comparative  studies  to  verify  the  reliability  and  accuracy  of  the  numerical  method, 
and  proposed  extensions  and  improvements  to  the  current  method  employing  advanced 
boundary  condition  techniques  or  different  numerical  schemes.  Recently,  Murakami, 
Mochida  and  Hibi*^have  made  extensive  calculations  using  the  large  eddy  simulation  (LES) 
method  and  clarified  its  potential  applicability  to  this  field. 

Nowadays,  general  interest  is  being  focused  on  buoyant  flow  predictions,  and  the  research 
groups  mentioned  above  are  trying  to  make  original  contribut 
ions  to  this  area. 

1.3  Numerical  Modeling  of  Air  Movement  in  Buildings 

Both  experimental  and  numerical  modeling  were  performed  recently  by  Chen,  et  ah'**  to  study 
air  movement,  temperature  field  and  contaminant  distribution  in  a ventilated  room  under 
different  ventilation  rates  and  heating  loads.  They  have  found  that  numerical  predictions 
generally  agree  with  the  measured  results  and  theat  both  the  temperature  and  ventilation 
efficiencies  increase  with  an  increase  in  ventilation  rate.  Davidson  and  Olsson'*^  carried  out 
numerical  simulations  of  the  local  age  distribution  and  local  purging  rate  in  buoyantly  ven- 
tilated rooms  to  investigate  ventilation  efficiency  and  contaminant  dispersal  in  buildings. 
Very  recently,  Awbi^°  solved  numerically  the  two  and  three  dimensional,  steady-state 
conservation  of  mass,  momentum  and  energy  equations,  along  with  a two-equation  turbulence 
model  to  predict  the  air  velocity  and  temperature  distributions  in  a ventilated  room  and  found 
reasonably  good  correlation  between  the  predicted  results  and  experimental  data. 

2.  Basic  Equations  for  Turbulent  Flows 

As  seen  in  the  previous  chapter,  indoor  airflow  including  jet  type  air  inlet  is  expected  to  contain 
a turbulent  portion,  and  a numerical  prediction  method  must  account  for  turbulence.  Although 
the  basic  Navier-Stokes  equations  are  capable  of  describing  turbulent  motion  as  well  as  laminar 
motion,  their  direct  application  for  turbulent  stimulation  requires  unrealistically  large  computa- 
tional time  and  memory.  The  development  of  turbulence  models  and  prediction  methods  that 
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require  moderate  computational  effort  is  desirable.  So  far,  two  series  of  prediction  methods  are 
considered  realistic  as  far  as  engineering  problems  are  concerned;  one  is  called  the  Large  Eddy 
Simulation  (LES)  method^”’^'  and  the  other  is  called  the  field  method 

The  LES  method  is  based  on  spatially  filtered  Navier-Stokes  equations  over  coarse  computational 
grids.  The  non-linear  interaction  between  the  large  eddies  and  the  subgrid  eddies,  whose  size  is 
less  than  grid  size,  is  simulated  using  a subgrid  eddy  viscosity  model.  Although  this  subgrid  model 
can  be  made  theoretically  acceptable  and  applicable  to  general  problems,  the  LES  method  still 
requires  large  computer  memory  and  long  CPU  time,  even  with  the  current  vector  processing 
supercomputers  (partly  due  to  the  large  amount  of  transient  computations  required  for  the  method). 

In  contrast  to  the  LES  method,  the  field  method  employs  averaged  Navier-Stokes  equations  whose 
derivation  requires  rather  uncertain  assumptions  to  arrive  at  its  basic  equations.  However,  partly 
because  it  requires  only  a moderate  computational  effort,  there  have  been  many  practical  appli- 
cations of  this  method.  Moreover,  the  field  model  has  proven  to  be  capable  of  predicting  a wide 
variety  of  practical  problems  with  better  accuracy  than  expected.  In  this  chapter,  the  turbulence 
model  of  the  field  method,  the  K-e  turbulence  model  employed  in  the  "Explicit  Time  Marching 
Algrorithm  for  Continuous  Thermal  Fluid  Flow"  (EXACTS  program  is  described. 

2.1  The  Navier-Stokes  and  Reynolds  Equations 

If  general  indoor  flows  and  the  related  pollutant  dispersion  and  diffusion  occurring  in  actual 
rooms  are  to  be  considered,  appropriate  equations  must  be  selected  which  are  applicable  to 
different  indoor  geometries,  to  buoyancy  induced  by  temperature  gradient  and  include  the 
effect  of  turbulent  flows.  Under  ordinary  indoor  conditions,  the  temperature  differences  and 
representative  air  speeds  in  a room  are  relatively  small.  In  this  case  the  Boussinesq 
approximation  to  the  general  compressible  flow  equations  is  applicable.  The  following 
simplified  equations  are  taken  as  the  basic  equations  for  describing  general  indoor  flows. 

Momentum  Equation 


(2-1) 


Conservation  of  Mass 


(2-2) 


Conservation  of  Energy 


(2-3) 


Conservation  of  Contaminant  Species 


dt  dXj  dx  j dXj  ^ 


(2-4) 
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where 

C is  the  instantaneous  concentration  for  passive  contaminant 

D is  the  molecular  diffusion  coefficient  for  passive  contaminant 

g-  is  the  gravitational  acceleration  in  X;  direction 

Ui  is  the  instantaneous  velocity  component  in  Xj  direction 

P is  the  instantaneous  static  pressure  difference 

t is  the  time 

Xi  are  the  cartesian  coordinates 

P is  the  volumetric  coefficient  of  expansion 

K is  the  thermal  diffusivity 

0 is  the  instantaneous  temperature  difference 

p is  the  density  of  air 

V is  the  kinematic  viscosity  of  air 

H is  the  volume  heat  source  generation  rate 

5 is  the  volume  contaminant  generation  source 

Since  turbulent  flow  is  characterized  by  random  eddies  of  various  sizes  and  it  is  the  energy 
transfer  process  from  the  large  scale  motion  to  the  small  scale  which  is  critical,  the  correct 
simulation  of  turbulent  flow  requires  the  numerical  grid  size  at  least  comparable  to  the  size 

of  the  smallest  possible  eddy.  The  eddy  size  may  be  estimated  from  the  dimensional  analysis 

1 

to  be  of  the  order  of  the  Kolmogorov  length  scale^  (v^/e)^  (typically  10“^  ~ 10~^  m ) 

where  e is  the  dissipation  rate  of  turbulence  energy.  Simulating  numerically  indoor  flows  for 
typical  rooms  on  this  small  scale  is  too  much  for  even  the  most  advanced  vector  processing 
computers.  On  the  other  hand,  most  engineering  problems  are  not  concerned  with  the  analysis 
of  turbulent  structure  itself,  but  only  the  general  distributions  of  the  mean  quantities  and  their 
statistical  characteristics. 


An  averaging  process  is  used  on  the  original  equations  (2-1)  to  (2-4)  to  eliminate  the 
unnecessary  flow  details.  Assuming  that  the  instantaneous  quantity  consists  of  a mean  part 
and  the  fluctuating  part,  such  as  (7,  = m,  -h  w the  conservation  equations  for  instantaneous 
parameters  are  averaged  to  produce  equations  for  the  mean  parameters.  The  averaging  pro- 
cedure can  be  either  a temporal  or  an  ensemble  average.  Equations  (2-1)  to  (2-4)  are  replaced 
by  the  following: 


dUi  dUiUj  _ \ dp  3 j f 3m,  dUj  ^ 

3r  dxj  p 3^:^  dxj  [ dxj  3;c,  ^ 
3m, 


-u\u'j 


00  30m^  0 

dt  dXj  dXj 

dc  BcUj  0 
dt'^  dXj  ~dxj 


dx, 


^ dc  - , , 
D- c M , 

j 


+ h 


+ s 


(2-5) 

(2-6) 

(2-7) 

(2-8) 


where 


c 

Mj 

P 

0 

h 


s 


is  the  mean  volumetric  concentration  of  passive  contaminant 

is  themean  velocity  component  in  Xj  direction 

is  the  mean  static  pressure  difference 

is  the  mean  temperature  difference 

is  the  mean  volume  heat  generation  rate 

is  the  mean  volume  contaminant  source  generation  rate 


and  where  ’ indicates  the  fluctuating  part  of  the  quantity. 

Since  the  spatial  and  temporal  variations  of  mean  parameters  are  expected  to  be  much  less 
than  variations  of  the  actual  quantities,  they  can  be  numerically  represented  with  relatively 
coarse  grids  leading  to  systems  of  equations  that  can  be  handled  by  the  current  computers. 

Unlike  the  original  equations,  however,  mean  parameter  equations  contain  unknown  corre- 
lation terms  for  the  fluctuating  components  (the  apparent  stress  tensor  appearing  in  equation 
(2-5)  -vu\u'j  is  called  the  Reynolds  stress  tensor)  resulting  from  the  fluctuations  of  the 
non-linear  convection  terms.  In  order  to  close  the  equation  system,  these  terms,  which  rep- 
resent apparent  stresses  or  fluxes  due  to  turbulent  motion,  have  to  be  approximated. 

2.2  Turbulence  Models 

There  are  several  approaches  which  have  been  proposed  in  order  to  approximate  these 
unknown  terms.  They  may  be  classified  according  to  their  modeling  strategy  as  follows. 

2.2.1  Indirect  Methods  for  Evaluating  the  Unknown  Turbulent  Stresses 
and  Fluxes 

In  this  category  of  approximation  methods,  the  unknown  stress  and  flux  terms  are  assumed 
proportional  to  the  local  gradient  of  mean  variables  and  the  isotropic  turbulent  viscosity 
or  diffusivity  (vj.  The  problem  is  then  to  evaluate  spatial  variation  of  Vf  The  most 
common  indirect  methods  are  the  following: 

Algebraic  Approach  ^ 

The  turbulent  viscosity  Vjis  given  as  a product  of  local  gradient  of  mean  velocity  and  an 
appropriate  length  scale  of  turbulence,  typically,  the  distance  from  the  wall.  This  approach 
was  first  introduced  by  Prandtl  to  predict  the  velocity  profile  near  a wall.  In  a room, 
however,  it  is  doubtful  that  the  turbulent  velocity  scale  can  always  be  expressed  only 
through  the  local  gradient  of  mean  velocity.  Moreover,  the  algebraic  expression  for  the 
turbulence  length  scale  seems  to  restrict  the  applicable  range  of  this  method. 

One  Equation  Model  Approach  ^ 

Following  Prandtl  and  Kormogorov,  Vj  is  assumed  to  be  proportional  to  the  square  root 
of  turbulence  kinetic  energy  (k)  and  the  length  scale  of  energy  containing  eddies  (/), 
where  the  spatial  variation  of  k is  solved  using  a model  transport  equation  for  k,  while  / 
is  given  by  an  algebraic  expression.  Although  this  is  an  improvement  on  the  algebraic 
model,  the  problem  inherent  in  the  empirical  assumption  for  the  length  scale  is  the  same 
as  the  algebraic  model. 

The  Two  Equation  Model  Approach  “ 
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Again,  the  Prandtl-Kormogorov  approach  is  employed  in  a similar  manner  to  the  one 
equation  model.  An  additional  transport  equation  concerning  the  value  of  z = k"'r  is 
solved  together  with  the  k transport  equation,  and  v,  is  given  as  follows: 

1 m 1 

v~A:^""z"  (2-9) 

Different  choices  of  m and  n in  equation  (2-9)  produce  different  types  of  two-equation 
models,  such  as  k~kl  model  “ (m=l,n=l),  k-z  model  (m=3/2,n=l),  k-W  model  ^ 
(m=l,n=2). 

2.2.2  The  Direct  Method  for  Evaluating  The  Unknovm  Turbulent 
Stresses  and  Fluxes  ^ 

In  the  direct  method  the  turbulent  viscosity/diffusivity  concept  is  abandoned  and  the 
turbulent  stresses  and  fluxes  are  determined  directly  from  the  model  transport  equations 
themselves.  Although  this  method  seems  to  enjoy  general  applicability,  it  requires  many 
partial  differential  equations  derived  from  numerous  assumptions.  It  has  not  been  clear 
to  date  whether  the  increased  complexity  of  the  model  and  computational  resources 
required  by  the  method  are  justified  by  the  obtained  improvement  in  accuracy. 


2.3  The  k - E Turbulence  Model 

Among  these  available  turbulence  models,  the  two  equation  model  with  the  choice  of  the  e 
transport  equation  has  been  most  widely  validated  and  shown  to  have  sufficient  accuracy  for 
most  engineering  problems.  Since  the  k-e  turbulence  model  is  also  employed  in  the  "EXACT" 
code,  a brief  description  of  its  derivation  form  the  basic  equations  is  given  below. 


In  the  k-e  turbulence  model,  the  Reynolds  stress  tensor  is  approximated  by  using  the  eddy 
(turbulent)  viscosity  concept  given  in  equation  (2-10): 


-u  ,u  ,=v, 


dUj  dUi 

dXi  dx 


■j  y 


-1^5,, 


(2-10) 


where  5^  is  Kronecker’s  delta  ( = 1 for  i = j,  and  = 0 for  i 5^  j). 

The  second  term  in  equation  (2-10)  is  added  in  order  that  both  sides  are  equal  to  -2k  when  a 
summation  of  normal  stress  is  taken. 


Similarly,  a turbulent  scalar  flux  term  is  approximated  by  assuming  gradient  transport  and 
constant  Prandtl  number.  This  leads  to  equation  (2-11): 


— <j)’M 


v/  9(1)  ^ 


(2-11) 


where  (p  is  the  mean  scalar  dependent  variable  and  a is  the  turbulent  Prandtl  number  for  cp. 

These  approximations  are  derived  from  an  analogy  to  the  molecular  transport  process. 

By  using  equation  (2-10),  the  equation  for  mean  momentum  transport  (Reynolds  equation) 
can  be  approximated  as  follows: 
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dui  dUiU.  lan  3 f. 


^ 3m,  duj  ^ 
^dxj  dx,^ 


-P^.e 


(2-12) 


where  the  mean  static  pressure  p is  replaced  by  the  total  pressure:  n = p +2pk/3  which 
includes  the  turbulent  pressure. 

The  energy  equation  (2-7)  and  contaminant  transport  equation  (2-8)  are  approximated  as 

fnllowQ" 

(2-13) 

D+—  ^^-hs  (2-14) 


follows: 

39  dOuj  3 
3r  dxj  dxj 


dc  dcui  3 
— + 


V, 

K-I-  — 

J 


V, 


3c 


'bXj 


3r  3jCy  'bXj 

The  remaining  unknown  parameter  Vj  is  given  as  a product  of  the  square  root  of  turbulence 
kinetic  energy  (k)  and  the  length  scale  of  energy  containing  eddies  (/)  as: 

1 

= (2-15) 

In  the  k-z  turbulence  model,  the  model  transport  equation  for  dissipation  rate  of  turbulence 
energy  (e)  is  employed  to  obtain  the  additional  parameter  and  a dimensional  analysis  leads 
to  the  following  relationship  among  k,  e and  / for  high  Reynolds  number  flow. 

3 

(2-16) 

where  Co  is  an  empirical  constant. 

If  I in  equation  (2-15)  is  eliminated  by  using  equation  (2-16),  an  approximate  form  of 
given  as  follows: 


IS 


v,  = C„- 


(2-17) 


An  exact  form  of  the  transport  equation  of  turbulence  kinetic  energy  is  derived  by  manipulating 
Navier-Stokes  equation  (2-1)  and  given  as  follows: 


Dk 

Dt 

1 


f 

V 

f ? V 

^ k ^ P 

^ ^ P Jy 

' 3m  3m  ’ . ' 
+ — - 

3m 

3M; 


dXi 


' 3m  3m 


'bXj  dXi 


V V/ 


(2-18) 
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where  ^ f denotes  the  substantial  derivative  operator. 


The  terms  in  (2-18)  represented  by  Roman  numerals  have  the  following  physical  meaning. 

I : rate  of  change  and  advective  transport 

II  : diffusive  transport  due  to  turbulence 

in  : shear  stress  production  = P 

IV  : molecular  diffusion 

V : viscous  dissipation  rate 

VI  : buoyancy  production/destruction  = G 


An  alternative  form  of  the  exact  transport  equation  for  k can  be  derived  from  transformation 
of  IV  and  V terms  in  equation  (2-18),  and  the  resultant  equation  has  a more  convenient  form 
for  modeling: 


Dk 

Dt 


u\u\  p’ 

2 ^ p , 


-i-v 


dk 

dx 


j J 


+ P + G- 


du  du 

dXj  dXj 


(2-19) 


In  equation  (2-19),  the  turbulent  and  molecular  diffusion  effects  are  put  in  simplified  form, 
and  only  the  isotropic  part  of  viscous  dissipation  rate  appears  explicitly. 

The  first  term  in  equation  (2-19)  represents  the  turbulent  transport  of  k by  diffusion.  This  is 
the  internal  term  and  it  vanishes  when  integrated  over  the  flow  volume.  This  implies  that  this 
term  exerts  no  contribution  to  production  nor  to  the  destmction  of  k,  but  merely  transports  it 
from  one  place  to  another.  The  second  part  of  this  term  represents  molecular  diffusion. 


In  the  k-z  turbulence  model,  the  first  part  of  this  term  is  modeled  in  accordance  with  the 
gradient-diffusion  assumption  as  follows: 

V,  dk 


-u 


u kU  k p 
2 P 


Gir  dx. 


(2-20) 


where  a^is  the  turbulent  Prandtl  number  for  turbulence  energy. 

The  P , G terms  in  equation  (2-9)  are  approximated  using  equations  (2-10)  and  (2-11)  as 
follows: 


— du: 

P = -u’.ur^  ~ V, 


dUj  dUi  ]dUi 
dXi  dXj 


dXj 


G = -|3g,M’,0’ 


ft 


(2-21) 
(2  - 22) 


The  last  term  in  equation  (2-19)  represents  the  isotropic  part  of  viscous  dissipation  rate.  The 
local  structure  of  turbulence  tends  to  be  isotropic  in  the  high  Reynolds  number  flow  and  this 
part  exerts  a dominant  contribution  to  total  dissipation.  The  non-isotropic  contribution  is  thus 
assumed  negligible: 


dUi  dUi 
dXj  dXj 


(2-23) 


9 


Using  these  approximations,  the  model  equation  for  k is  given  as  follows. 


DJ^ 

Dt 


dXi 


V, 

v+ — 

Ok 


dk 


+ v, 


dUj  dUi^ 


dXi  ^ dXj 


du; 


V,  00 


(2-24) 


The  exact  equation  for  the  dissipation  rate  of  turbulence  kinetic  energy  (e)  is  also  derived  by 
manipulating  Navier-Stokes  (2-1),  resulting  in: 


De 


du  du  \ 


Dt 

1 


2v  dp  ’ du  ’ ; 0e 


dx„  dx^  p dx„  dx„ 

Ij /// IV 


-2v 


dUi 

dXj 


du\du\  du' -du' 
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dx„  dx„ 


dXi  dxj  j 
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d^U;  du  'i 
Ivir^u' 


dx,dxj  dx„ 


VI 


du'idu'idu'j  , d^u'i  d^u'i 
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VH VIII 


(2-25) 


where  isothermal  conditions  ared  assumed. 


The  terms  (11,  III)  due  to  turbulent  diffusion  are  model  as  in  the  /:-equation  using  the  gradient 
diffusion  assumption . 


du'idu'i  vdp'du'j  v,  0e 

-VM 2 — 

'dx„dx„  pdx^dx^  CJ^dxj 


(2-26) 


Term  IV  does  not  have  to  be  modeled.  Terms  V and  VI  are  production  terms  due  to  the  mean 
motion.  These  terms  are  omitted  because  they  tend  to  be  less  important  when  the  Reynolds 
number  is  large  and  local  structure  of  turbulence  becomes  nearly  isotropic. 

Terms  VI  and  VII  represent  the  generation  terms  due  to  vortex  stretching  and  destruction  due 
to  viscous  action,  respectively.  They  cannot  be  modeled  separately.  The  reason  is,  as  given 
by  Rodi^°,  that  these  terms  increase  with  increasing  Reynolds  number  while  their  differences 
are  independent  of  the  Reynolds  number.  The  generation-destruction  terms  in  e-equation  must 
be  treated  simultaneously  and  their  modeled  forms  must  not  contain  any  term  depending  on 
the  Reynolds  number.  The  most  widely  used  approximation  for  these  terms  is  given  as  follows: 


-2v 


du'idu'idu'j  ^ 2 


dXj  dx„  dx„ 


IV 


dxjdXrn  dXjdx„ 


~ -(C,P-C,E) 


(2-27) 


where  Cj  C2  are  empirical  constants. 

Although  the  most  straightforward  way  to  include  the  buoyancy  effect  in  this  term  is  to  replace 
P in  equation  (2-27)  by  f*  -f-  G,  several  numerical  experiments  have  shown  this  method  to  be 
ineffective  in  some  cases.  To  attempt  to  correct  this  difficiency,  another  empirical  constant 
Cj  is  introduced  for  the  buoyancy  generation  term  resulting  in  the  following  equation  for  e: 
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(2  - 28) 
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2.3.1  Estimation  of  the  Empirical  Constants 

The  k-z  turbulence  mcxiel  contains  several  empirical  constants  which  must  be  determined 
in  such  a manner  that  the  model  can  describe  very  basic  turbulent  flows  properly. 

First,  the  model  should  replicate  the  turbulence  near  the  wall.  Within  a flow  of  this  kind, 
convection  and  diffusion  of  turbulence  energy  are  negligible  and  the  boundary  layer 
approximation  can  be  applied.  With  this  assumption,  the  A:-equation  (2-24)  may  be 
simplified  as  follows: 


3 


(2-29) 


where  u is  the  streamwise  component  of  mean  velocity  and  y is  the  coordinate  axis  in 
the  direction  lateral  to  the  stream  line.  Equation  (2-16)  is  also  used  to  express  the 
dissipation  rate  of  turbulence  energy.  Multiplying  Vt  on  both  sides  of  equation  (2-29)  and 
the  use  of  equation  (2-15)  yields  the  following  equation: 


^3m  ^ 


= Co'k 


(2-30) 


The  left  hand  side  of  equation  (2-30)  represents  apparent  shear  stress  (divided  by  density 
of  fluid)  due  to  turbulence.  Meanwhile,  Reynolds  equation  (2-5)  under  the  condition  of 
two-dimensional,  isothermal  and  steady  state  can  be  written  for  the  streamwise  com- 
ponent as  follows: 


du^  duv 
dx  3y 


13P 

+41 

p dx 

3jc| 

3v  ^ 
'*'3jc  ^ 


where 


(2-31) 


X : cartesian  coordinate  in  the  streamwise  direction 

y : cartesian  coordinate  in  the  lateral  direction 

u : time-averaged  velocity  component  in  x direction 

V : time-averaged  velocity  component  in  y direction 


Here,  if  zero  pressure  gradient  in  the  streamwise  direction  is  assumed  and  the  boundary 
layer  approximation  is  applied  to  equation  (2-31),  the  non-vanishing  term  has  to  satisfy 
the  following  relation: 


(2-32) 


This  means  that  shear  stress  does  not  change  and  takes  a constant  value  of  skin  friction 
(T*)  on  the  wall  within  the  boundary  layer.  The  left  hand  side  of  equation  (2-30)  is, 

therefore,  independent  of  y and  equal  tOM*^(M*: friction  velocity,  m * = (x*/p)^)  except 
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where  y is  close  to  zero  and  the  kinematic  viscosity  effect  is  not  negligible.  Hence,  the 
turbulence  energy,  right  hand  side  of  equation  (2-30),  is  also  constant  within  the  boundary 
layer.  Finally,  the  equation  for  Cq  is  given  as  follows: 


Co  = 


(2-33) 


Experimental  results  suggest  that  Cq  should  take  the  value  of  0.09.  Other  useful  relations 
may  be  derived  from  the  mixing-length  hypothesis  ^ K(Karman’s  constant)~0.4  as 
follows: 


I 1 

v,  = CoKyk^ 


(2-34) 


e = 


(2-35) 


If  the  £-equation  (2-28)  is  also  applied  to  the  same  problem,  its  simplified  form  is  given 
as  follows,  neglecting  convection  terms.  (The  diffusion  term  cannot  be  neglected  in  this 
case.) 


(2-36) 


By  using  equations  (2-33),  (2-34),  (2-35)  and  the  mixing-length  hypothesis,  equation 
(2-36)  may  be  transformed  into  the  following  in  order  to  show  the  relationship  among 
various  empirical  constants  appearing  in  equation  (2-36). 


Cj  — C2 


(2-37) 


Next  to  be  considered  is  the  decay  of  turbulence  behind  a grill.  As  the  production  and 
diffusion  terms  in  k and  e-equations  vanish  due  to  the  negligibly  small  mean  strain  rate 
in  this  process,  the  convection  and  destruction  terms  are  nearly  in  balance  as  follows. 

u~  = -e  (2-38) 

ox 


ae_  e^ 

dx  k 


(2-39) 


where  x is  the  streamwise  coordinate  and  u is  the  velocity  component  in  A:-direction. 

Equation  (2-38)  shows  that  turbulence  kinetic  energy  decreases  monotonically  in  the 
streamwise  direction  and  its  variation  may  be  approximated  using  the  following  equation. 
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(2-40) 


kix)  = 


kfyXQ 


(x+JCo) 


n 


By  substituting  equation  (2-40)  and  (2-38)  and  using  equation  (2-39),  the  following 
equation  is  obtained  for  C2. 

= (2-41) 

n 


Experimental  data  show  that  n is  close  to  unity  and  a value  of  1.92  is  commonly  used 
for  C2. 

Prandtl  numbers  for  turbulence  energy  and  its  dissipation  rate,  and  should  be  of  the 
order  of  unity,  and  1.0  and  1.3  are  chosen  respectively.  From  this,  C;  takes  the  value  of 
1.44  from  equation  (2-37).  The  only  remaining  constant  Q is  believed  to  take  a value 
ranging  from  0 to  Ci 

Rodi  suggested^*’ however,  that  Q should  depend  on  the  amount  of  thermal  stratification 
and  should  be  a function  of  the  ^chardson  number  Rf{Rf  '\s  defined  as  minus  the  ratio 
of  buoyancy  production  of  k to  stress  production,  -GIP  ) 

Since  the  final  conclusion  has  not  been  obtained  for  this  problem  so  far,  Q should  be 
tuned  depending  on  each  specific  condition  so  as  to  give  the  best  result. 

Finally,  the  complete  k-e  turbulence  model  together  with  the  recommended  empirical 
constants  are  summarized  as  follows. 


Conservation  equations  for  mean  dependent  variables 


dUj  dUjUj  _ 1 an  d 

dt  dxj  p dXi  dxj 

where  n = p+  2pk3 


(v  + v,) 


3m,  duj  ^ 


dXj  3;c, 


30  30M;  3 

— + 


dt  dXj  dxj  ^ ^ 

3r  ^ dXj  dx  j \ 

Eddy  viscosity 


K-I-  — 
(^9 


D -H- 


3c 


v,  = C,- 


(2-42) 


(2-43) 

(2-44) 


(2-45) 


Conservation  equation  for  turbulence  kinetic  energy  and  its  dissipation  rate 


Dk 

Dt 


dXj 


v+ — 


dXi 


+ v, 


(duj  duAdUi  V,  ae 


3;c. 


dx^j 


(S„dXi 


e 


(2-46) 
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f V,  ^ ae 

v+—  — 


Lft 

Empirical  constants 


^duj  dUi^dUi 
\dxi  dXj  jdxj 


(2-47) 


Co  = 0.09 


= 1.00 


C,  = 1.44 


a =1.30 


C2=1.92 


0.5, 0.7 


C3  ~ 0,C 


3.  A Numerical  Method  for  Solving  System  of  Partial  Differential  Equations 

The  partial  differential  equations  mentioned  alwve  are  all  non-linear  and  coupled  with  each  other 
with  the  exception  of  transport  equations  for  passive  contaminants,  which  may  be  solved  inde- 
pendently if  the  flow  distribution  is  given.  Only  a numerical  approach  is  possible  to  obtain  solutions 
of  these  equations  for  most  practical  problems  encountered  in  indoor  airflow  analysis.  Moreover, 
although  the  handling  of  free  surface  boundary  is  required  in  some  field  of  research,  it  is  not 
necessary  for  the  indoor  airflow  problems.  Extensive  effort  has  been  made  to  date  to  develop 
appropriate  algorithms  to  solve  the  Navier-Stokes  equations  and  convection-diffusion  transport 
equations  numerically  together  with  the  treatment  of  free  surface  boundary  condition.  Among 
these,  the  method  called  the  "Marker  and  CeU"  method  (MAC  method)^^  developed  at  the  Los 
Alamos  Scientific  Laboratory  in  1965  has  stood  out  due  to  its  efficiency  and  potential  applicability 
to  general  fluid  flow  phenomena.  Although  the  original  MAC  method  was  developed  for  solving 
transient  two-dimensional  (2-D)  liquid  flow,  induing  free  surface  boundary,  many  researchers 
have  worked  on  this  method  to  extend  its  applicability  and  generalization.  The  MAC  method  has 
become  one  of  the  standard  solution  techniques  to  solve  2-D  as  well  as  three-dimensional  (3-D) 
fluid  flow  problems.  If  the  problem  is  restricted  only  to  the  2-D  cases,  the  vorticity-stream  function 
(X-\|/)”  approach  can  be  used.  In  this  case  the  continuity  equation  for  the  fluid  is  automatically 
satisfied  and  the  pressure  can  be  eliminated  as  a dependent  variables. 

Although  the  (x-xir)  method  is  advantageous  for  2-D  problems,  its  extension  to  3-D  problems  is 
not  an  easy  task.  It  also  causes  additional  difficulty  in  the  treatment  of  boundary  conditions.  Aside 
from  this  argument,  2-D  and  3-D  cases  are  not  basically  different  from  each  other  in  the  MAC 
method  and  the  treatment  of  boundary  conditions  is  straightforward  since  primitive  variables  are 
used. 

In  this  chapter,  the  numerical  method,  which  in  principle  is  based  on  the  MAC  method,  employed 
in  the  "EXACT"  code  is  described. 

3.1  Momentum  Equation 

In  the  MAC  method,  the  flow  domain  to  be  considered  is  subdivided  into  rectangular  grids 
called  the  "cell"  and  the  velocity  components  u,  v,  pressure  p and  diffusivity/viscosity  v are 
defined  at  different  locations  shown  in  figure  3-1.  (Here,  for  ecomony  of  notation,  only  the 
2-D  case  is  used  to  explain  the  numerical  solution  scheme;  the  extention  to  3-D  case  is 
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straightforward).  In  other  words,  velocity  components  are  defined  on  the  cell  boundary  normal 
to  its  cell  face,  while  pressure  is  defined  in  the  center  of  the  cell.  This  mesh  layout  is  called 
the  "staggered  mesh  system" . 

Figure  3.1  Staggered  Mesh  System 


The  following  conventions  are  used  for  this  discretized  system. 

• each  cell  is  numbered  using  a combination  of  two  integer  values,  i and  j for  x and  y 

direction  respectively. 

• i and  j are  also  used  as  grid  coordinate  system: 

(i,  j)  indicates  the  center  of  cell  i,  j and  an  additional  1/2  the  location  on  the  cell 
boundary,  for  instance,  (i,j  + 1/2)  specifies  the  point  A in  Figure  3- 1 . 
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• each  dependent  variable  which  is  defined  at  the  cell  center  (i,j)  is  expressed  with 

subscript  such  as  pj j. 

• velocity  components  defined  at  the  cell  boundary  are  also  expressed  with  integer 

subscript:  M,_,and  v.^are  the  velocity  components  defined  at  (i+l/2,j)  and  (i,j+l/2) 
respectively. 

• AXi  and  Ay^  are  the  cell  dimensions  of  the  (ij)  cell  in  the  x and  y directions  respectively. 

An  additional  subscript  1/2  indicates  the  arithematic  mean  of  the  cell  interval 
in  each  direction  ( the  distance  between  adjacent  cell  centers) 
Ax.  + i^  = 0.5(AXi  + Ax.^i) 


It  must  be  emphasized  here  that  Uj  j ,Vi j and  pj j are  all  defined  at  different  locations  (the  use 
of  an  integer  subscript  is  merely  for  the  convenience  of  coding). 


The  momentum  transport  equations  for  2-D  incompressible  flow  can  be  writtem  in  the  fol- 
lowing form: 


du  du^  duv  _ dp  d 
dx  ^ dy  dx  dx 


^du  dv^ 
^dy'^dx 


+ Bx 


(3-1) 


3v 

duv 

1 

dv^ 

dp 

dt 

'^dy' 

dy 

dx  [ 

/ du  ^ 

,ay  dx^ 


dy  [ dy 


(3-2) 


where 


P 


n 

p 


r =v-i-v,. 


The  equation  of  continuity  is: 

du  dv 
dx  '^dy 


(3-3) 


For  the  convenience  of  discretization,  equation  3-1,  2 are  rearranged  as  follows: 


du 

di 

dv 


_d_ 

dx 

dx 


2 

V J 

_±( 

( ^ 
vu  -r— 

V 

|-4f 

du  ^ 
uv  -r— 
dy  J 


dp  d (du  ) 


dy 


dx  dx 

^ A 

dy  "'"ajc 


^dx 


+ 


dy 


V 


dy 


^dy 


.dv 


+ Bx 


+ By 


(3-4) 

(3-5) 


If  r does  not  have  any  spatial  variation  as  in  the  isothermal  laminar  case,  the  4th  and  5th 
terms  in  the  right  hand  side  of  equations  (3-4)  and  (3-5)  vanish  using  the  continuity  equation. 
In  order  to  treat  the  general  case,  these  terms  are  left  in  this  discussion.  Each  term  in  equation 
(3-4)  may  be  interpreted  as  follows: 
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On  the  left  hand  side,  the  first  term  is  rate  of  change  of  momentum.  On  the  right  hand  side, 
the  first  and  second  terms  are  partial  derivatives  of  momentum  flux  due  to  convective  and 
diffusive  transport  in  x and  y directions.  The  third  term  is  the  net  force  due  to  the  pressure 
gradient,  the  fourth  and  fifth  terms  are  the  net  viscous  shear  stresses  on  on  the  cell  and  the 
sixth  term  is  the  gravity  body  force. 

An  approximate  numerical  form  for  each  term  of  equation  (3-4)  is  given  below  using  a finite 
difference  technique  and  staggered  grid  system  with  respect  to  with  its  surrounding  rect- 
angular gridspace  (control  volume)  defined  with  (i,j-l/2)  and  (i-i-l,j+l/2)  as  the  coordinates 
of  the  diagonally  opposite  comers.  (The  control  volume  for  v,^  is  defined  as  the  volume  with 
(i-l/2,j)  and  (i-i-l/2,j+l)  as  coordinates  of  the  diagonally  opposite  comers.) 


_9  ^ 
dx 


-XFLUX, , ,,,} 


V 


dx 


Ax 


1 


df  du^ 

■—  uv-r— 
dyy  dy 

dp  ^Fi,j  Pi-¥\,j) 
dx  Ax  . I . 


YFLUX  , , ,-YFLUX.  , , 


Ay, 


(3-6) 

(3-7) 

(3-8) 


dx 


I J 


+ Bx 


p i + \,j  i,j  ^ p 

+ A,,, 


Az, 


Ax 


1 


‘'i  + i.;  ''i.j  ''i  + i.y-i  1 

— i . 1 . 1 ■ 


2 I , +_ 


-f-- 


Ay, 


(3-9) 


where  r,  + i/2,>  + i/2  is,  for  instance,  interpolated  value  of 
r at  (i-i-l/2,j-i-l/2)  using 


+ ^i,y  + l ^nd  ri  + lj  + l- 

The  terms  XFLUX  and  YFLUX  in  equations  (3-6)  and  (3-7)  are  momentum  fluxes  due  to 
convection  and  diffusion  across  the  control  volume  surfaces  in  x and  y directions  respectively. 
In  the  original  MAC  method,  these  terms  were  approximated  by  the  central  difference  method 
as  follows: 


XFLUX^j  = 


j + Ui 

-i.y 

.y  + Wi- 

i.y 

V 

2 

y 

V 

2 

y 

-r, 


‘.y 


AXi 


(3-10) 
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YFLUX 


V 


-r 


I Av  • 


(3-11) 


With  a uniform  grid  spacing,  this  formulation  is  second  order  in  accuracy.  It  also  makes  the 
entire  solution  unstable  or  oscillating  when  convection  is  dominant  (the  cell  Peclet  number 
Pe  = M Ax/r  becomes  of  the  order  of  ten  or  more).  The  easiest  remedy  for  this  difficulty  is 
to  replace  the  central  difference  used  in  the  convective  term  by  the  upwind  difference  scheme. 
The  upwind  form  of  equation  3-11  can  be  written  as  follows: 


YFLUX 


1 . 1 


= u 


'.y 


y 


T-  ^‘.7  + 1 ^*.7 

~ • ' > A 

‘+i.7+j  Ay.  1 


YFLUX,  , , , = 


when 

y 


^ v -\-  V-  , ■ ^ 

*^1,7  ' ''i  + l,j 


>0 


-r.  , , 


^^.,7  + 1 ““..7 


.+^.7+2  Ay_. 


7+; 


(3-12) 


when 


^ V + V-  , ■ 

^i,j  ' + 1,7 

l 2 J 


<0 


(3-13) 


Although  this  treatment  makes  the  numerical  solution  unconditionally  stable,  it  also  introduces 
an  additional  false  diffusion/viscosity,  which  is  proportional  to  | (v,j  + v,  + i j)Ay^  + i/2  I- 


The  "EXACT"  code,  therefore,  employs  a central/upwind  combination  scheme  and  switches 
from  one  scheme  to  another  according  to  the  local  Peclet  number  in  order  to  minimize  the 
disadvantage  in  each  scheme.  The  basic  idea  of  this  scheme  originates  from  the  well-known 
"Hybrid"  scheme  The  flux  YFLUXi^.ii2j+i/2,  for  instance,  is  approximated  as  follows: 


YFLUX  , , 


^ V-  • -I-  V-  < ^ 

'^*.7  ' + 1,7 

j 

^“.,7 + “..7  + 1" 

4. 

1 2 j 

I 

1 2 J 

1 2 Jj 

r , , 


Ay 


J+-. 


2C 


2C 


» 


(3-14) 


where  «:...»  stands  for  the  largest  quantity  in  the  enclosed  list  and  C is  a switching  parameter: 
C <2. 

It  is  an  easy  task  to  prove  that  this  formulation  becomes  identical  with  the  central  difference 
scheme  (equation  3-11)  when  the  local  grid  Peclet  number 
{Pe  = {v^j  -f-  Vj  + ij)Ayy  + i/2/2r,  + ,/2j  + 1/2)  satisfies  the  condition  -C  <Pe  <C . Outside  this  range, 
this  method  reduces  to  a upwind  interpolated  scheme  without  the  diffusion/viscosity  term. 
The  upwind  interpolation  factor  is  chosen  so  that  the  absolute  value  of  the  effective  grid  Peclet 
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number,  which  takes  account  of  an  additional  false  diffusivity/viscosity  due  to  truncation 
error,  does  not  exceed  C.  Since  the  range  and  magnitude  of  the  switching  parameter  can  be 
specified  arbitrarily,  a different  value  of  C can  be  used  in  different  portions  of  the  flow  domain. 

With  the  above  approximation,  equations  (3-4)  and  (3-5)  are  finally  approximated  as  follows: 


3 . . PiJ  Pi  + lJ 

Ar  , 

(3- 

15) 

^ / \ P^J  P‘,J  + ^ / r \ 

3/^-)=  Ay, 

(3- 

16) 

where  fu  and  fv  are  the  approximate  forms  of  the  right  hand  side  of  equations  (3-4)  and  (3-5) 
except  for  the  pressure  term. 


In  the  original  MAC  method,  the  remaining  partial  derivative  with  respect  to  time  is 
approximated  by  a simple  explicit  scheme.  If  the  superscript  n is  used  for  the  dependent 
variable  t = nAt , equations  (3-15)  and  (3-16)  become: 


A + 1 


u-  =''u  + At 


A + 1 


V.  . ="v-  +At 


^ " n " n 

PiJ  Pi+lJ 
Ax  1 

V y 

Ay.  1 

V J 


+ A/'‘(/-m),, 


+ Ar"(/-v).,^ 


(3-17) 


(3-18) 


This  formulation  allows  the  calculation  of  the  velocity  components  SLtt  = (n  + l)Ar  given  the 
velocity  and  pressure  field  at  r = nAr.  The  velocity  field  at  r = (n  -f-  l)Ar,  however,  does  not 
generally  satisfy  the  continuity  condition,  unless  the  pressure  field  at  t = nAt  is  choosen 
correctly.  The  velocity  at  r = (n  -I-  1)A/  and  pressure  field  at  r = nAr  must,  therefore,  be  updated 
simultaneously  so  that  the  continuity  equation  is  satisfied.  Finite  difference  forms  of  equation 
(3-3)  in  terms  of  the  updated  velocity  components  are: 


A + 1 


A + 1, 


Ax, 


A + 1 


A + 1, 


Ay, 


= 0 


(3-19) 


where  the  pressure  '"Pijis  at  r = nAt  is  choosen  so  that  the  continuity  condition  (3-19)  is 
satisfied  t = {n  + l)Ar. 

In  the  original  MAC  method,  a Poisson  equation  for  pressure  was  solved  so  that  the  velocity 
field  satisfies  the  continuity  condition  at  f = («  -F  l)Ar.  The  numerical  Poisson  equation  is 
derived  by  substituting  equations  (3-17)  and  (3-18)  into  equation  (3-19).  The  set  of  resultant 
linear  algebraic  equations  for  the  pressure  is  then  solved  iteratively. 
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In  contrast , the  "EXACT"  code  employs  the  "pressure  relaxation  technique",  which  corrects 
the  pressure  and  velocity  components  simultaneously  so  that  the  continuity  error  becomes 
minimal.  Assume  that  tentative  velocity  components  and  pressure  at  each  step  of  the  iteration 
are  expressed  as  and"/7i“  • 

To  start  the  iteration,  set  a = 0 and  the  initial  pressure  iteration  to  the  pressure  of  the  last  time 
step: 


n _ 0 _n  - 1 _ 

PiJ  Pi,j 

Then  update  velocity  field  using: 


n + 1 a n , a * 

U = U + At 

i,j  *.y 


f n_a  n _a  ^ 

A.y-  A + l.y 


Ax 


1 


+ Ar  "(/•«),, 


n + 1 a n , k ^ 

v - . = V - + Ar 

t,j  i,j 


( n ^<3.  n_o  A 

Vi,i  Pij  + l 


Ay. 


^^-2  ) 


+ Ar"(/v),. 


The  error  in  the  continuity  equation  for  this  velocity  field  is  then  given  by 

n+l  a n+1  a n + 1 a n+l  a 


‘D  = 

‘.y 


■ + ■ 


Ax,  Ay, 

To  reduce  this  error,  the  pressure  is  updated  using 

n a+1  n a , 

PiJ  = Pij+  ^Pij 
where 

n + Ijy  a 


■Sa>-b- 


>.y 


/ 2 


where  1 < B < 2 to  insure  convergence. 
In  equations  (3-25) 


1 


1 1 
+■ 


1 1 
+ ■ 


Ai  , Ai  , Ay  , ■ Ay  ] 

-H 


(3-20) 


(3-21) 


(3-22) 


(3-23) 


(3-24) 


(3-25) 


Ax,  Ay^ 

This  process  is  repeated  until  the  error  in  the  continuity  is  reduced  to  an  acceptable  limit. 
The  solution  procedure  for  the  momentum  equation  is  shown  in  fiqure  3-2. 
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Fiqure  3.2  Schematic  of  Solution  Process  for  Momentum  Equation 
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3.2  Scalar  Transport  Equations 

In  turbulent  and/or  buoyant  flow  conditions,  additional  transport  equations,  such  the  energy 
equation  and  k-e  equations  in  the  two  equation  model,  have  to  be  solved  in  order  to  obtain 
spatial  distribution  of  the  effective  diffusivity/viscosity  or  body  force  due  to  buoyancy.  These 
equations  are  scalar  transport  equations  and  are  similar  in  nature.  The  solution  technique  for 
the  general  scalar  transport  equation  is  adopted  for  them  all.  For  simplicity  the  2-D  case  is 
considered. 


3(J) 

a 

dx 

' * 


ay  V 


+ ^(J)  + 5 


(3-26) 


Equation  (3-26)becomes,  for  instance,  the  transport  equation  for  turbulence  kinetic  energy  in 
isothermal  condition  if(|)  = A:,r  = v + Vj/a* , 5 (j)  = v,S  - e. 


In  the  numerical  solution  method  used  in  the  "EXACT"  code,  the  scalar  valuable  (p  is  defined 
at  (i,  j)  point  in  the  staggered  grid  system  and  expressed  by  <|),  For  each  term  on  the  right 
hand  side  of  (3-26)  the  following  approximations  for  (j)^^  in  the  control  volume:  (i-l/2,j-l/2), 
(i+l/2,J-Hl/2). 


df  . 
«$-r- 


dx 


V 


\XFLUX  , -XFLUX  , 1 

1 


Ax, 


(3-27) 


_a_ 


ay 


J YFLUX  , - YFLUX  ,1 

1 


Ay, 


(3-28) 


S(})  ~ 5(1),.^  (3-29) 

The  terms  XFLUX  and  YFLUX  in  equations  (3-27)  and  (3-28)  are  the  convection-diffusion 
fluxes  of  the  faces  of  the  control  volume.  They  can  be  approximated  in  a similar  manner  as 
the  corrsponding  term  in  the  momentum  equation. 


XFLUX ^ ^ ^ (1).,,  ((1),,,.  - (j). , ,,.) « 0, ^ - -f,  ^ 


(3-30) 


YFLUX 


*.y  + 


= V < 
i ‘.y' 


r.y^. 


(3-31) 


where  the  switching  parameter  C is  fixed  at  2 in  order  to  guarantee  that  these  fluxes  are  always 
positive  for  k,  £ or  the  contaminant  concentration  c. 

Equation  (3-26)  can  be  written  in  the  form  given  in  equation  (3-32) 
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where 

Wi,  = 


IXFLUX  , 

-XFLUX  , 

[YFLUX  ,-YFLUx  ,1 

1 

(3-32) 


Ax,-  Ayj 

A simple  explicit  formulation  allows  the  calculation  of  (p  at  f = nAtin  equation  (3-39). 
''^%=\,  + At''m,j  (3-33) 

The  solution  procedure  for  scalar  transport  equation  can  be  summarized  as  follows. 

Figure  3.3  Schematic  of  Solution  for  Scalar  Equations 


3.3  Boundary  Conditions 

The  k-e  turbulence  model  consists  of  a system  of  elliptic  partial  differential  equations.  The 
dependent  variables  in  them  require  appropriate  boundary  conditions.  These  are  usually 
expressed  as  conditions  on  the  primitive  variables  except  for  the  pressure.  The  pressure 
boundary  condition  is  required  only  when  the  velocity  component  normal  to  the  boundary  is 
unknown  and  has  to  be  determined  through  calculation. 

In  the  staggered  grid  approach,  the  boundary  location  is  designed  so  as  to  coincide  with  the 
end  face  of  a real  cell,  and  one  or  two  cells  with  the  same  cell  interval  as  that  of  terminal  real 
cell  are  added  just  outside  it  to  handle  the  boundary  conditions.  The  velocity  component 
normal  to  the  boundary  is,  therefore,  located  just  on  the  boundary,  while  the  later^  component 
and  other  scalar  variables  are  defined  at  a half  cell  interval  detached  from  the  boundary  as 
shown  in  Figure  3-4. 
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Figure  3-4  Mesh  Layout  Near  Boundary 
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By  using  symbols  and  subscripts  shown  in  figure  3-4,  typical  boundary  conditions  required 
in  the  indoor  airflow  analysis  are  described  as  follows. 

• Inflow  condition 

This  is  used  to  specify  the  inflow  information  where  there  is  mass  transfer  from  outside  to 
inside  the  calculation  domain. 

Uno  specified 

Ut.i,Ut.i’  specified  (usually  = 0) 

ki,e.i,9.i  specified 

Since  the  inflow  values  of  k and  e are  not  usually  known  except  when  measurements  are 
undertaken,  they  are  determined  with  reference  to  available  data  for  similar  conditions. 
Recommended  values  are  given  as  follows  from  Kato’s  experiments 

• for  a straight  duct  end  or  for  a nozzle  type  jet 

k = 0.01~0.03t/o  . I = 0.05~0.25Lo 

• for  the  "anemo  type"  radial  diffuser 
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0.05-0.1 5t/o  » / = 0.01~0.02Lo 

where 

Uq  is  the  area  averaged  inflow  velocity 
Lq  is  the  representative  length  of  intake. 

The  value  of  e is  calculated  from  equation  (2-16). 

• outflow  condition 

Although  this  is  the  opposite  condition  of  inflow  case,  most  outflow  values  are  not  given  a 
priori.  Hence  an  approximate  condition  is  imposed  using  engineering  judgment: 

Case  1 Known  Outflow 


UnO 

Ufl.Ut.r 

specified 

specified  (usually  = 0) 
or  set  Ut.i  = Uti,  Un’=  u,i’ 

assuming  ^ = 0 

k 1 = ki  assuming  ^ = 0 
e.i  = El  assuming  ^ = 0 

30 

0.1  = 01  assuming  ^ = 0 

Case  2 Unknown  outflow 

u„o 

not  specified 

specified  (usually  = 0) 
or  set  Ut.i  = Uti  u,.i’=  Uti’ 

3m, 

assuming  -^  = 0 

^-2 

adjusted  so  that  the  continuity  condition  at  the  -1  cell  is 
satisfied  using  updated  v^y,,i  and  v,.y' 

^-1,^-1,  Q-i 

k.i  = ki  assuming  ^ = 0 
£.1  = £i  assuming  ^ = 0 

0.1  = 01  assuming  ^ = 0 

p.i  specified  (usuaily=0) 

The  last  pressure  boundary  condition  is  useful  when  a significant  variation  of  outflow  velocity 
is  expected,  and  yet  it  is  not  known  prior  to  the  calculation. 

• symmetry  condition 
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This  condition  is  used  to  reduce  unknown  variables  when  the  flow  domain  contains  a plane 
of  symmetry. 

u„o  specified  as  u^o  = 0. 

Ufi.Un’  setu,.j  = Uti,u,.i’=Uti’ 

dui 

because  ^ = 0 

dy 

k-1  £-1. 0-1  k-i  = kj  because  ^ = 0 

e.i  = El  because  ^ = 0 
0.1  = 01  because  ^ = 0 


• wall  boundary  condition  1 (logarithmic  law  type) 

Since  the  whole  flow  domain,  except  for  the  intake  and  outlet,  is  surrounded  by  walls  (floor 
and  ceiling)  as  far  as  the  indoor  airflow  is  concerned,  numerical  wall  boundary  conditions 
are  very  important  for  obtaining  accurate  results.  The  most  straightforward  boundary  con- 
dition is  to  set  all  velocity  component  on  the  wall  to  zero  following  the  theoretical  requirement 
that  there  is  no  slippage  at  the  wall.  In  spite  of  plausibility  of  this  method,  its  direct  application 
requires  an  excessively  a fine  grid  layout  in  the  vicinity  of  the  wall.  This  is  because  near  the 
wall  the  flow  is  less  turbulent  and  diffuse  with  the  gradient  of  each  dependent  variable 
becoming  much  steeper  in  this  region  than  in  flow  domain  away  from  the  wall. 

In  addition,  low  turbulence  is  inconsistent  with  the  fundamental  assumptions  of  the  k-e  tur- 
bulence model.  A more  approximate  treatment  is  needed  for  both  theoretical  and  economical 
reasons.  The  most  commonly  used  wall  boundary  condition  is  the  so  called  logarithmic  wall 
condition.  It  assumes  that  the  flow  has  a zero  pressure  gradient  in  the  cells  adjacent  to  the 
wall.  This  leads  to  an  equation  for  the  flow  near  the  wall  of  the  form: 


u* 


1 yu* 

= -ln 

K V 


+ C 


(3-34) 


where 

C empirical  constant  (for  a smooth  wall  ~5.5) 

u velocity  component  parallel  to  wall 

I 

u the  friction  velocity  = {x/pf 

y the  distance  from  the  wall 

K an  empirical  constant  (Karman  constant  -0.4) 

If  equation  (3-34)  is  applied  at^  = h/2  in  figure  3-4,  the  following  implicit  formulation  is 
obtained  for  friction  velocity  u 


1,  hu* 

— --In— — l-C 
u*  K 2v 


(3-35) 
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u can  be  calculated  using  any  available  iteration  procedure  such  as  the  Newton  method.  If 
the  partial  derivative  with  respect  to  y is  taken  in  equation  (3-34),  the  following  relation  is 
obtained  assuming  constant  a viscous  stress  layer: 

= (3-36) 

P 

This  is  consistent  with  the  Prandtl’s  mixing  length  hypothesis  and  Vt  is  evaluated  by 

V,  = Kyu*  (3-37) 

kj  is  calculated  using  equation  (2-33),  resulting  the  following  equation: 

1 

k,  = c7m*"  (3-38) 


8i  can  be  obtained  from  equations  (3-47),  (3-38_  and  (2-17)  as  follows: 


2 


(3-39) 


Finally,  the  whole  procedure  is  summarized  as  follows: 
set  u^=p 

obtain  u by  solving  (3-35) 

determine  k,  and  Ei  using  equations  (3-38)  and  (3-39) 
determin  w,./ using 


u 


*2 


(v  + v,) 


-Mf-l 

h 


(3-40) 


where  equation  (3-40)  is  a finite  difference  form  of  equation  (3-36)  in  which  kinematic 
viscosity  has  been  added. 

• boundary  condition  2 (power  law  type) 


Logarithmic  wall  boundary  condition  may  be  feasible  as  far  as  the  relation  given  in  equation 
3-40  is  correct.  This  is,  however,  merely  an  approximation  of  actual  near  wall  flow  and 
requires  an  iterative  procedure,  which  may  be  disagreeable  for  practical  calculation.  An 
alternative  wall  boundary  condition  may  be  derived  from  a crude  assumption  of  the  velocity 
profile  in  the  vicinity  of  wall.  Experimental  data  show  that  the  following  power  law  repre- 
sentation is  a good  approximation  for  constant  stress  layer: 


f 

u,  = u^ 

V 


y 

5 


(3-41) 


If  equation  3-41  is  applied  ?Liy-hl2  in  figure  3-4,  the  following  equation  is  given: 


u 


ti 


(3-42) 
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Equation  3-41  is  transformed  by  dividing  both  sides  by  equation  3-42  as  follows: 


u, 

U,j 


By  taking  partial  derivative  of  equation  (3-44)  with  respect  to  y,  one  obtains: 


du, 

dy 


In 


= u. 


U J 


The  gradient  of  M,at  y=h/2  can  be  calculated  using  equation  3-44  as  follows: 


du, 

dy 


2n 


= M, 


=■ 


h 


(3-43) 


(3-44) 


(3-45) 


The  one  sided  finite  difference  form  of  the  left  hand  side  of  equation  3-45  between  y=h/2  and 
y=-h/2  yields  the  following  equation: 


Ua-u,_^  = 2nu„ 


(3-46) 


The  physical  meaning  of  equation  3-46  is  the  extrapolation  of  M,to  the  wall  boundary  and  it 
can  be  used  to  set  the  value  of  w,.; . 

The  boundary  condition  for  k may  be  derived  from  equation  (2-30)  as  follows: 

, , .dk 

k_y  = Xiassuming  ^ = 0 


The  boundary  condition  for  Ei  is  given  by  equation  (3-39)  as  in  the  logarithmic  law  condition. 
The  parameter  n in  these  equations  may  be  choosen  as  constant  ( n = 1/6  ~ 1/8  for  fully 
developed  wall  boundary  layer)  or  as  a function  of  turbulence  information  near  wall  such  as 
Vji  when  a laminar  flow  region  exist  near  the  wall. 

• wall  boundary  condition  3 (for  energy  equation) 


The  wall  boundary  condition  for  energy  equation  is  very  important  to  the  entire  accuracy  of 
a buoyant  flow  calculation  because  it  exerts  a significant  effect  on  the  total  heat  loss/gain  at 
the  wall  and  also  on  the  buoyancy  driving  force  in  momentum  equation.  Although  the  heat 
flux  specified  wall  boundary  condition  may  be  set  without  difficulty,  the  temperature  spe- 
cificaton  condition  must  be  transformed  to  the  flux  type  similar  to  the  estimation  of  wall  shear 
stress  or  velocity  gradient  in  momentum  equation.  This  is  nothing  more  than  the  estimation 
of  the  local  heat  transport  coefficient.  The  most  straightforward  and  reasonable  way  to 
accomplish  this  would  be  to  impose  a similar  empirical  information  as  equation  (3-35)  or 
(3-45)  for  temperature.  It  has  been  shown,  however,  that  a direct  application  of  this  approach 
causes  significant  underestimation  of  heat  fluxes.  An  ad  hoc  treatment  has  always  been  needed 
to  obtain  acceptable  results.  The  following  tentative  procedure  is  adapted  in  the  "EXACT" 
code.  Wall  heat  flux  can  be  related  to  the  temperature  gradient  at  y=h/2  in  figure  3-4  assuming 
a constant  flux  layer  as  follows: 


^7w 


^ t 

K + — 
^ ^0 


(3-47) 
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where 


Cp 

specific  heat 

Q-w 

wall  thermal  flux 

//w 

wall  heat  flux 

P 

density 

K 

thermal  diffusivity 

One  sided  finite  difference  approximation  of  the  right  hand  side  derivative  between  y=h/2  to 
y=0  yields  equation  (3-48)  assuming  constant 


Qw 


^ t 

K + ~ 

V 


-Oo) 


(3-48) 


where 


00  is  the  given  wall  temperature 

The  right  hand  term  in  the  bracket  in  equation  (3-48)  represents  local  thermal  transfer  coef- 
ficient (a)  and  it  is  expected  to  vary  little  depending  on  h (cell  interval)  as  long  as  a sufficiently 
large  value  for  h is  taken.  This  is  because  Gj  varies  little  if  it  is  defined  at  nearly  boundary 
layer  thickness.  If  a reasonable  value  of  a is  assumed  from  available  experimental  data  the 
following  equation  may  be  used  to  calculate  approximate  thermal  flux: 


= a(0i-eo) 


(3-49) 


An  approximated  form  of  equation  (3-47)  using  the  one  sided  flnte  differencing  scheme 
between  y=h/2  and  y=-h/2  is  given  as  follows,  again  assuming  constant 


K + — 


Ve,-e.,) 


(3-50) 


Elimination  of  the  left  hand  side  of  equation  (3-49),  (3-51)  yields  the  following  equation: 


a(0i-0o) 


K-h  — 

V 


(9i-0-i) 

h 


(3-51) 


Equation  (3-51)  is  used  to  determine  an  appropriate  value  of  0.,  when  the  boundary  tem- 
perature is  given.  Otherwise  equation  (3-50)  can  used  to  obtain  an  appropriate  value  of  G.j 
when  the  wall  flux  is  given. 


4.  Experimental  Validation  for  Isothermal  Flows 

In  this  chapter,  several  examples  of  numerical  results  using  the  "EXACT"  code  are  presented  for 
which  experimental  data  are  available  for  isothermal  conditions.  The  numerical  time  iteration  is 
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carried  out  on  the  Cyber  205  vector  processor  until  the  temporal  solution  reaches  steady-state, 
which  takes  10  to  90  minutes  of  CPU  time  depending  on  the  problem.  Convergence  is  evaluated 
by  using  the  volumetric  root  mean  square  residual(r)  of  each  partial  differential  equation  as  follows. 

For  k,  e and  the  continuity  equation 

r.,  r.,  r,S10-= 

For  the  momentum  equations 

r„<6xl0"^ 

In  each  case,  r.m.s.  residuals  deceased  monotonically  and  no  numerical  instability  nor  oscillation 
was  observed.  After  a converged  solution  was  obtained,  it  was  stored  in  a file  on  the  Cyber  855 
and  appropriate  two-dimenional  or  three-dimensional  graphical  presentation  of  the  results  was 
made  using  post-processing  graphic  routines  on  "TEMPLATE". 


4.1  Sakamoto’s  geometry 

The  first  geometry  to  be  considered  isa2x2x2m  cubic  box  with  the  same  size  of  rectangular 
inlet  and  outlet  located  in  the  middle  of  the  ceiling  and  at  the  bottom  comer  of  a vertical  wall 
as  shown  in  figure  4- 1 . This  geometry  was  employed  by  Sakamoto  et  al^^  both  for  experiment 
and  numerical  calculation.  A full  scale  model  room  with  an  air  inlet  and  outlet  was  constmcted 
of  wooden  particle  boards.  Mean  velocity  and  some  statistical  quantity  distribution  were 
measured  with  an  ultrasonic  anemometer.  The  Reynolds  number,  based  on  the  area  average 
inlet/outlet  velocity  Uq,  rectangular  inlet/outlet  nozzle  size  parameter  Lq  and  kinematic  vis- 
cosity of  air  V is  approximately  1.2-10^.  Corresponding  to  this  condition,  the  numerical 
prediction  was  performed  with  18x1 8x9  uniform  mesh  layout  for  a symmetric  half  of  the  flow 
domain.  (2x2  meshes  were  used  for  inlet  and  outlet). 

The  converged  solution  was  obtained  using  "EXACT"  code  without  special  modification. 
Detailed  information  is  given  as  follows: 


time  step 

inflow  streamwise  velocity 
inflow  lateral  velocity 
outflow  streamwise  velocity 
outflow  lateral  velocity 
inflow  turbulence  energy 

inflow  length  scale 

wall  boundary  condition 

switching  parameter  for 
convection  term 


0.1  Lo/Uo 

Uo  (uniform) 

0 at  upwind  cells 

Uo  (uniform) 

0 at  upwind  cells 

k = 0.005  Uo" 
e = 0.00032  U^Ho 

0.1  Lo 

1/7  th  power  profile 
2 for  whole  domain 
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convergent  criteria  r,j  < 1 0'^ 

after  10  min  CPU  time  r^,  _ 2-10'^ 

The  calculation  result  and  Sakamoto’s  experiment  are  compared  in  figure  4-2  and  4-3  on  the 
plan  of  symmetry.  Figure  4-3  shows  trajectories  of  passive  markers  from  arbitrary  starting 
points  based  on  the  measured  mean  velocity  field.  The  numerical  result  shows  that  the  inflow 
goes  straight  downward,  diverges  horizontally  (radially)  after  impinging  on  the  floor  and  the 
left  side  portion  of  the  horizontal  flow  deflects  upward  up  to  a certain  distance  along  the  left 
side  vertical  wall.  It  may  be  interesting  to  note  that  a strong  recirculating  zone  appears  only 
in  the  left  side  of  the  flow  domain  with  its  center  at  the  near  bottom  comer. 

On  the  other  hand,  the  right  side  of  the  flow  domain  is  comprised  of  a downward  flow  and 
is  not  recirculating.  These  characteristics  can  be  clearly  observed  in  the  experiment  and  the 
general  feature  of  the  mean  flow  corresponds  fairly  well.  The  main  discrepancy  between 
calculation  and  experiment  seems  to  occur  just  below  the  inlet  and  near  the  left  wall.  The 
experiment  shows  that  the  initial  inflow  jet  diffuses  more  rapidly  than  the  calculation  and  no 
upward  flow  in  the  vicinity  of  the  left  wall  is  observed  in  the  experiment. 

Sakamoto  et  al  suggested  that  the  anemometer  probe  they  used  in  the  experiment  has  a 10 
cm  span  and  may  not  be  suitable  for  velocity  measurement  where  steep  velocity  gradient 
existed  within  a zone  comparable  to  the  probe  span.  Since  the  steep  velocity  gradient  usually 
appeared  in  the  vicinity  of  air  inlet  and  wall,  this  discrepancy  might  have  been  originated 
from  inaccuracy  of  the  measured  data.  Predicted  mean  flow  structure  is  given  in  a perspective 
view  of  figure  4-4,  where  velocity  vectors  on  the  symmetric  half  plane  in  the  vicinity  of  the 
ceiling,  flow, and  two  side  walls  and  those  on  the  plane  of  symmetry  are  plotted.  The  flow 
direction  near  the  vertical  walls  is  generally  upward  except  the  downward  flow  over  the 
exhaust  outlet.  The  near  floor  flow  shows  radial  dispersion  of  the  main  jet  and  the  near  ceiling 
flow  is  induced  toward  the  inlet.  This  flow  structure  is  consistent  with  the  measured  mean 
flow  distribution  in  other  planes. 
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Figure  4.1  Sakamoto’s  Geometery  and  Experimental  Apparatus 
(dimensions  in  mm) 
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Figure  4.2  Predicted  Time  Average  Velocity  Vectors  on  Plane  of  Symmetry 


Figure  4.3  Trajectories  of  Passive  Markers  Based  on  Experimental  Data 
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Figure  4.4  Perspective  View  of  Predicted  Mean  Flow  Structure 
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4.2  Kato’s  geometry 

The  next  model  is  also  a cubic  box  of  1500  x 1500  x 1500  mm  dimensions  with  a rectangular 
air  inlet  and  exhaust  outlet  of  the  same  size  located  on  the  same  wall  as  shown  in  figure  4-5. 
Numerical  and  experimental  studies  were  conducted  using  this  geometry  by  Kato  et  al  . 
An  experimental  study  was  carried  out  with  a full-scale  model  constructed  of  clear  acrylic 
boards  with  an  air  circulation  system.  They  made  detailed  measurements  for  mean  velocity 
as  well  as  its  fluctuating  component  using  the  tandem  special  hot  wire  anemometer,  which 
can  measure  both  instantaneous  velocity  and  direction.  The  anemometer  sensor  they  used  is 
less  than  5 mm  in  size  and  expected  to  measure  velocity  with  a fair  accuracy  even  where  a 
steep  gradient  exists. 

The  Reynolds  number  of  the  inflow  condition  was  maintained  approximately  at  60.000  and 
the  flow  was  expected  to  be  fully  turbulent.  The  numerical  prediction  was  carried  out  using 
a 20x20x10  uniform  mesh  layout  (2x2  meshes  for  inlet/outlet)  for  the  symmetric  half  flow 
domain  and  the  following  condition  was  imposed  to  obtain  converged  solutions. 


time  step 

inflow  streamwise  velocity 
inflow  lateral  velocity 
outflow  streamwise  velocity 
outflow  lateral  velocity 
inflow  turbulence  energy 

inflow  length  scale 

wall  boundary  condition 

switching  parameter  for 
convection  term 


0.1  LoAJo 

Uo  (uniform) 

0 at  upwind  cells 

Uo  (uniform) 

0 at  upwind  cells 

k = 0.005  Uo' 
e = 0.00032  U}lLo 

0.1  Lo 

1/7  th  power  profile 
2 for  whole  domain 


convergent  criteria  r^,  r^^  r^.  < 10'^ 

after  30  min  CPU  time  r^,  _ 2 • 10’^ 

Predicted  and  measured  time-averaged  velocity  vectors  on  the  plane  of  symmetry  are 
presented  in  figures  4-6  and  4-7  respectively.  Predicted  velocity  vectors  show  that  inflow 
becomes  a wall  jet  near  the  ceiling,  gradually  induces  surrounding  low  velocity  fluid  and 
deflects  downward  after  impinging  onto  the  opposite  wall.  Most  of  the  main  flow  is  a low 
speed  diagonal  return  flow  after  reaching  the  floor  and  a recirculating  flow  structure  appears 
in  the  whole  flow  domain  with  its  center  near  the  bottom  comer  of  the  opposite  wall.  The 
agreement  with  the  corresponding  experiment  is  excellent  not  only  for  the  general  flow 
structure  but  also  for  the  flow  velocity  and  direction  at  each  point.  The  predicted  and  measured 
distribution  of  turbulence  kinetic  energy  are  also  compared  in  figures  4-8  and  4-9.  The 

agreement  between  these  is  not  so  good  as  that  of  time-averaged  velocity  distribution. 

Relatively  high  turbulence  kinetic  energy  regions  occur  in  the  vicinity  of  the  ceiling  and  the 
opposite  wall  in  both  prediction  and  experiment,  and  their  orders  of  magnitude  seem  to 
correspond  fairly  well.  Predicted  mean  flow  structure  is  presented  in  Figure  4- 10  in  a similar 
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manner  as  the  previous  case.  Small  secondary  recirculating  regions  appear  near  the  opposite 
comer  of  the  ceiling  as  well  as  at  the  top  comer  of  the  front  wall,  and  these  subtle  flow 
stmctures  are  also  observed  during  the  measurement  at  corresponding  locations. 
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Figure  4.5  Kato’s  Geometry  and  Experimental  Apparatus 
(dimensions  in  mm) 
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Figure  4.6  Predicted  Average  Velocity  Vectors  on  Plane  of  Symmetry 


Figure  4.7  Measured  Average  Velocity  Vectors  on  Plane  of  Symmetry 
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Figure  4.8  Predicted  Distribution  of  Turbulent  Kinetic  Energy  on  Plane  of  Symmetry 


Figure  4.9  Measured  Distribution  of  Turbulent  Kinetic  Energy  on  Plane  of  Symmetry 
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Figure  4.10  Prespective  View  of  Predicted  Mean  Flow  Structure 
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4.3  Baron’s  geometry 

The  next  geometry  shown  in  figure  4-11  was  employed  by  Baron  et  al^^  for  both  experimental 
and  numerical  studies.  Since  they  used  the  Large  Eddy  Simulation  (LES)  method  as  the 
turbulence  model,  comparison  between  different  numerical  approaches  is  also  possible  in  this 
case.  Their  experimental  apparatus  consists  of  a 300  x 300  x 300  mm  cubic  test  cell  with 
water  recirculating  system,  and  velocity  profiles  in  representative  horizontal  and  vertical 
planes  were  measured  using  a Laser  doppler  velometer.  Water  inlet  and  outlet  are  relatively 
larger  in  this  case  than  the  previous  geometries,  and  the  Reynolds  number  based  on  the  same 
definition  is  approximately  36,000.  They  used  a 20x20x40  uniform  mesh  layout  (dense  in 
vertical  direction)  and  a primitive  version  of  the  LES  method  was  employed  for  numerical 
calculation.  Since  their  geometry  contained  no  plane  of  symmetry,  present  numerical  study 
by  the  "EXACT"  code  was  carried  out  for  the  entire  flow  domain  with  a 20x20x20  uniform 
grid  layout  (6x6  meshes  for  inlet/outlet),  which  is  coarser  than  theirs. 

Detailed  numerical  data  are  given  below. 


time  step 

inflow  streamwise  velocity 
inflow  lateral  velocity 
outflow  streamwise  velocity 
outflow  pressure 
outflow  lateral  velocity 
inflow  turbulence  energy 

inflow  length  scale 

wall  boundary  condition 

switching  parameter  for 
convection  term 

convergent  criteria 
after  45  min  CPU  time 


0.1  LoAJo 

Uo  (uniform) 

0 at  upwind  cells 

not  specified 

0 at  downflow  cells 

dujdn  = 0(free  slip) 

k =0.005  Uo^ 
e = 0.00016  Uo^Ho 

0.1  Lo 

1/7  th  power  profile 
2 for  whole  domain 

r„<  lO'^ 


the  pressure  outflow  boundary  condition  is  employed  to  allow  outflow  velocity  variation. 

"EXACT"  predictions  for  the  time-averaged  velocity  vectors  on  representative  vertical  and 
horizontal  planes  are  given  in  figures  4- 12, 4-13,  respectively.  Inflow  deflects  slightly  upward 
toward  the  ceiling  and  a small  recirculating  zone  is  observed  near  the  top  comer  of  the  opposite 
wall,  while  the  flow  below  the  jet  region  is  generally  upward  and  a reversed  flow  appears 
near  the  floor  as  shown  in  figure  4-12.  Meanwhile,  a horizontal  recirculation  is  observed  on 
both  sides  of  the  jet  region  in  figure  4-13. 

Figures  4-14  and  4-15  show  comparison  among  "EXACT"  prediction,  prediction  with  the 
LES  method  and  measurement  concerning  a representative  vertical  plane.  These  figures  show 
that  both  "EXACT"  and  the  LES  results  seem  to  coincide  fairly  well  with  the  experiment 
results  as  far  as  the  gross  features  of  mean  flow  are  concerned.  A marked  difference  is  observed. 
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however,  if  more  detailed  comparison  is  made  among  them.  The  LES  calculation  significantly 
underpredicts  the  initial  vertical  diffusion  of  the  inflow  jet;  the  "EXACT"  result  shows  clearly 
better  agreement  with  the  experimental  result  in  this  region.  Moreover,  the  reversed  flow 
appearing  in  the  experiment  near  the  floor  region  is  not  predicted  in  the  LES  method.  Although 
this  reversed  flow  near  the  floor  is  observed  in  the  "EXACT"  numerical  result,  the  calculated 
velocity  gradient  is  less  steep  than  the  experiment  and  the  0 velocity  point  appears  at  a much 
higher  position  in  the  first  two  measurement  loctions.  On  the  other  hand,  agreement  of  the 
"EXACT"  result  with  the  experiment  in  the  initial  horizontal  diffusion  of  inflow  jet  is  not  so 
good  as  that  of  the  LES  method,  although  the  former  is  better  than  the  latter  near  the  side  wall 
reversed  flow  region  as  shown  in  figures  4-16  and  17.  The  general  flow  pattern  calculated 
from  the  "EXACT"  method  is  given  is  figure  4-18. 

It  may  be  concluded  that  the  present  k-e  model  and  the  LES  method  have  a similar  degree  of 
accuracy  at  least  for  this  specific  problem,  although  the  source  and  tendency  of  discrepancy 
is  different  between  them,  and  the  use  of  the  LES  method  does  not  necessarily  guarantee  a 
better  result  than  the  application  of  the  k-E  model.  The  choice  of  the  k-e  model,  therefore, 
seems  to  be  preferable  due  to  its  relatively  small  demand  of  computational  effort  for  more 
practical  and  complicated  problems. 
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Figure  4.1 1 Baron’s  Geometry 
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Figure  4.12  Predicted  Average  Velocity  Vectors  on  a Representative  Vertical  Plane 


JNLET  VELOCITY 


Figure  4.13  Predicted  Average  Velocity  Vectors  on  Representative  Horizontal  Plane 
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Figure  4.14  Predicted  Average  Velocity  Vectors  on  Representaitve  Vertical  Plane 


Figure  4.15  Predicted  and  Measured  Average  Velocity  Profile  on  Representative  Vertical 

Plane 

Solid  line  : measured 
Dashed  line  :predicted  with  LES 
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Figure  4.16  Predicted  Average  Velocity  Vectors  on  Representative  Horizontal  Plane 


Figure  4.17  Predicted  and  Measured  Average  Velocity  Profile  on  Representative  Horizontal 

Plane 

Solid  line  : measured 
Dashed  line  rpredicted  with  LES 
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Figure  4.18  Perspective  View  of  Predicted  Mean  Flow  Structure 
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4.4  Application  to  A Practical  Problem 

Through  the  previous  studies  on  elementary  cubic  geometry,  it  has  been  made  clear  that  the 
"EXACT"  numerical  method  is  capable  of  predicting  the  three-dimensional  mean  flow 
structure  as  well  as  some  statistical  quantities  with  fair  accuracy.  This  section  gives  the  results 
of  its  application  to  more  complicated  and  realistic  geometry.  The  geometry  to  be  considered 
is  a typical  conventional  clean  room  with  two  air  inlets  in  the  ceiling  and  four  exhaust  outlets 
near  the  bottom  comer  of  vertical  walls.  A box  shaped  work  bench  is  located  in  the  middle 
of  the  room  as  shown  in  figure  4-19.  This  geometry  was  employed  by  Murakami  et  al.^^  and 
they  made  both  numerical  and  experimental  studies.  The  mean  velocity  distribution  as  well 
as  contaminant  concentration  distributions  were  measured  on  representative  planes  of  a full 
scale  clean  room  laboratory.  Flow  velocity  and  direction  were  measured  separately  with  a 
thermister  type  non-dimensional  anemometer  and  by  a flow  visualization  technique,  which 
was  found  to  be  less  than  50  cm/s  in  most  parts  of  the  flow  domain.  Their  results  on  velocity 
distribution  may,  therefore,  be  less  accurate  than  those  in  previous  sections.  Concentration 
distribution  was  also  measured  using  a nearly  passive  contaminant  source  (0.31  |im  poly- 
styrene standard  particles)  located  on  the  workbench  and  a particle  counter  as  a detector.  The 
Reynolds  number  of  the  inflow  condition  was  approximately  38,000  and  most  of  the  flow 
domain  is  expected  to  be  turbulent.  Numerical  prediction  corresponding  to  the  test  condition 
was  conducted  with  a 2 1 x23x  1 6 nonuniform  mesh  layout  including  one  inlet  and  outlet,  where 
fine  grid  spacing  is  employed  in  the  vicinity  of  wall,  inlet,  outlet  and  workbench. 

The  following  input  data  were  used  for  "EXACT"  calculation. 


time  step 

0.0175  Lo/Uo 

inflow  streamwise  velocity 

Uq  (uniform) 

inflow  lateral  velocity 

dujdn  = 0(free  slip) 

outflow  streamwise  velocity 
outflow  lateral  velocity 

not  specified 

outflow  pressure 

0 at  downflow  cells 

inflow  turbulence  energy 

k = 0.005  Uo" 
e = 0.00032  U//Lo 

inflow  length  scale 

0.1  Lo 

wall  boundary  condition 

1/7  th  power  profile 

switching  parameter  for 
convection  term 

2 for  whole  domain 

convergent  criteria 

r^  T^T^<  10'^ 

after  90  min  CPU  time 

r™  - 3 • 10-^ 

The  pressure  outflow  boundary  condition  is  also  employed  to  allow  outflow  velocity  variation. 
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The  "EXACT"  prediction  for  the  time-averaged  velocity  vectors  and  corresponding  exper- 
imental result  are  compared  in  figure  4-20  on  the  plane  of  symmetry.  The  numerical  result 
shows  that  the  inflow  consists  of  a downward  flow,  diverging  horizontally  (radially)  after 
impinging  the  floor,  and  creating  small  secondary  recirculations  in  the  vicinity  of  vertical 
side  wall  and  vertical  wall  of  the  work  bench.  Although  the  downward  flow  from  the  air  inlet 
and  recirculation  near  the  side  wall  are  also  observed  in  the  experiment,  coarse  velocity 
measurement  locations  does  not  permit  detailed  comparison.  While  the  flow  direction  is 
generally  downward  in  the  prediction,  the  main  discrepancy  between  prediction  and 
experiment  occurs  in  the  region  just  over  the  workbench,  where  the  flow  direction  is  rather 
unstable  and  its  velocity  is  quite  small  in  the  experiment.  Numerical  and  experimental 
concentration  distributions  are  also  compared  in  figure  4-21  on  the  same  representative  plane. 
As  can  be  seen  from  this  figure,  the  peak  concentration  zone  occurs  over  the  workbench  in 
both  prediction  and  experiment.  The  calculated  high  concentration  zone  is  small,  suggesting 
an  overestimation  of  flow  velocity  over  the  work  bench.  Aside  from  this  discrepancy,  the 
calculated  concentration  distribution  pattern,  as  well  as  its  magnitude,  seems  to  correspond 
well  with  the  experiment  within  an  acceptable  range  of  accuracy.  General  features  of  the 
mean  flow  also  seems  to  be  predicted  with  fair  accuracy.  Finally  the  three  dimentional  mean 
flow  structure  in  given  in  figure  4-22  for  the  symmetric  half  flow  domain. 
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Figure  4.19  Hypothetical  Clean  Room  (Dimensions  in  mm) 


•xbaust  outlet 


Figure  4.20  Predicted  and  Measured  Velocity  Vectors  on  Plane  of  Symmetry 

left  view:  predicted 
right  view:  measured. 


JNLET  VELOCITY 


Figure  4.21  Predicted  and  Measured  Concentration  Contour  Lines  on  Plane  of  Symmetry 

left  view:  predicted 
right  view:  measured 
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Figure  4.22  Perspective  View  of  Predicted  Flow  Structure. 
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5.  Buoyancy  Affected  Flows 

In  the  preceeding  chapter,  some  typical  examples  of  the  use  of  the  developed  computer  code  for 
predicting  indoor  air  movement  under  isothermal  flow  conditions  were  presented.  For  most  room 
air  conditioning  and  ventilation  problems  of  importance,  the  airflow  is  generally  non-isothermal 
and  under  a buoyancy  influenced  situation.  In  this  section,  the  finite  difference  formulation 
developed  previously  will  be  applied  to  the  problem  of  the  flow  of  cold  air  entering  a ventilated 
room  subject  to  known  heat  input  rates  and  Averse  supply  air  velocities. 

It  is  convenient  to  solve  a system  of  governing  equations  in  non-dimensional  form  since  the  flow 
variables  will  then  fall  between  certain  prescribed  limits  such  as  0 and  1 and  the  characteristic 
parameters  such  as  Reynolds  number  and  Archimedes  number  can  be  varied  independently. 

Introducing  the  foilwing  dimensionless  variables: 

f = - U-  = U^U„  ,p  = p/po 

fi=plpo^^  . § = 6/00  . k=kiu^  , i = 


where  Lq  is  the  width  of  the  inlet  opening,  Uq  is  the  inlet  air  velocity,  po  is  the  average  density  of 
air,  00  is  the  temperature  difference  between  the  supply  air  and  the  average  room  air,  into  the  basic 
equations  describing  conservation  of  mass  (2-6)  and  momentum  (2-42),  the  energy  equation  (2-43) 
and  the  two  transport  equations  for  turbulence  kinetic  energy  (2-46)  and  its  dissipation  rate  (2-47) 
results  in  the  following  non-dimensional  form  of  these  equations: 


dUj 


dx, 


= 0 


(5-1) 
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where 


(5-2) 

(5-3) 

(5-4) 

(5-5) 


v,  = C„- 


eddy  viscosity 


v> 

UoU 


the  dimensionless  eddy  viscosity 
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effective  eddy  viscosity 


— ' 


1 


V, 

+— 


RePr  Ge 
5 = 


^diii  dUj']dUi 
dxj'^  dXi 


d£j 


r-R 


r^=— +— 

Re  G^ 


r =— +— 

" Re  G. 


effective  thermal  diffusivity 


Re  = LqUJv  the  Reynolds  number 
Pr=v/a  the  Prandtl  number 
Ar,  = ^g,L,QjUl 


Sq-  = htJ^CpUQ^Q  the  dimensionless  heat  generation  rate 


where  h is  the  volumetric  rate  of  heat  generation  and  a is  the  thermal  diffusivity  of  air. 

Using  the  following  values  for  the  empirical  constants  appearing  in  equations  (5-1)  to  (5-5) 

Cd  = 0.09,  Cl  = 1.44,  C2  = 1.92,  C3  = 1.0 
G,e=1.0,  Ge=1.3,  Ge  = 0.9 

and  following  the  MAC  method,  iterative  solving  and  numerical  time  integration  of  these  equations 
were  made  to  obtain  the  converged  solution. 


The  test  room  modeled  numerically  was  studied  extensively  in  references  44  through  47  and  had 
overall  dimensions  of  6.10  m wide  x 3.66  m long  x 2.74  m high,  simulating  an  interior  room  of 
a multistory  office  building.  The  energy  input  to  the  room  was  composed  of  electrical  and  lighting 
loads.  The  electrical  heat  loads  were  generated  by  finstrip  heaters  located  around  the  center  of  the 
room  floor  and  having  a total  heat  output  of  22.07  W/m^  over  a 3.66  x 1.52  m actual  floor  area, 
and  a concentrated  load  composed  of  a 0.97  x 0.91  x 0.31  m angle  iron  framework  installed  0.20 
m from  the  south  wall,  and  having  a heat  output  rate  of  40.98  W/m^  of  floor  area.  The  ceiling 
lighting  consisted  of  eight  flourescent  recessed  double-tubed  fixtures  evenly  distributed  0.31  m 
from  the  east  and  west  walls  and  0.61  m from  the  end  walls  of  the  short  dimension  and  having  a 
total  power  input  of  approximately  760  W.  A sidewall  grille  measuring  0.61  m wide  by  0.15  m 
high  was  located  in  the  center  of  the  3.66  m long  north  wall,  with  its  horizontal  center  line  0.15 
m below  the  ceiling.  A 0.76  m x 0.42  m high  return  air  grill  was  situated  directly  beneath  the 
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supply  air  grille,  0.7 1 m above  the  floor.  Local  air  temperatures  and  velocities  within  the  occupied 
zone  of  the  test  room  were  measured  at  216  locations  using  anemometers  and  thermocouples.  The 
air  supply  grilles  had  two  rows  of  19  mm  wide  adjustable  vanes  and  both  sets  of  vanes  were  straight 
for  all  tests  performed.  For  all  tests,  the  room  was  maintained  at  an  average  temperature  of  23.33 
± 0.39  C.  Under  a total  heating  load  of  63.05  W/m^  of  floor  area  plus  a lighting  load  of  34.09 
W/m^  of  floor  area,  the  flow  rates  of  air  supply  to  the  room  varied  from  10.97  to  91.44  m^/h  - m^ 
of  floor  area. 

Mathematical  modeling  was  performed  to  simulate  six  air  distribution  tests  on  the  sidewall  grille 
installed  in  a ventilated  room.  A numerical  grid  with  the  symmetrical  half-portion  of  the  room 
being  subdivided  nonuniformly  into  29  x 27  x 20  rectangular  parallelepiped  cells  was  used  with 
six  different  airflow  rates  including  10.97,  18.29,  36.58,  54.86, 73.15  and  91.44  m^/h-m^  of  floor 
area.  In  order  to  deal  with  boundary  conditions,  one  or  two  dummy  cells  with  the  same  cell 
intervals  as  that  of  the  terminal  real  cell  were  added  outside  of  the  boundary.  The  temperature 
difference  between  the  supply  air  and  the  average  room  air  for  each  flow  rate  was  calculated  based 
on  an  overall  energy  balance  for  the  whole  room.  The  calculated  values  of  temperature  difference 
between  the  room  air  and  the  supply  air,  for  different  rates  of  air  inflow  are  tabulated  in  Table  5- 1 
along  with  the  Reynolds  number  and  the  Archimedes  number. 

The  incoming  air  was  colder  than  the  bulk  air  in  the  room  to  compensate  for  the  input  of  the  room 
heating  loads,  simulating  a cooling  situation.  Numerical  modeling  corresponding  to  the  test 
conditions  was  made  with  a nonuniform  mesh  layout  for  a symmetric  half  portion  of  the  flow 
domain  including  the  concentrated  and  uniform  heating  loads  and  lighting  loads,  and  an  inlet  and 
an  outlet  opening.  Fine  grid  spacing  was  used  in  the  vicinity  of  the  walls,  the  heating  loads,  and 
the  inlet  and  outlet  openings. 

The  sidewall  grille  used  for  air  distribution  was  assumed  to  be  a 75%  free  area  air  diffuser  and 
83%  of  the  lighting  energy  was  assumed  to  transmit  downward  into  the  room  by  convection  and 
radiation.  The  boundary  conditions  for  the  velocity  and  turbulence  properties  included  zero 
gradients  in  the  exit  plane  and  logarithmic  wall  functions  to  describe  the  near- wall  or  solid  surface 
regions.  All  surfaces  were  assumed  to  be  adiabatic  except  a portion  of  the  floor  and  the  ceiling 
around  the  room  center  and  the  top  face  of  the  concentrated  load,  where  constant  heat  input  rates 
were  prescribed.  Heat  was  supplied  at  a rate  of  88.3  W/m^  from  the  uniform  load  at  the  center  of 
the  room  floor,  and  at  3279  W/m^  from  the  concentrated  load  in  the  vicinity  of  wall  opposite  to 
the  inlet  and  at  26.7  W/m^  from  the  fluorescent  lights  at  the  center  of  the  ceiling.  The  heat  inputs 
into  the  flow  domain  were  assumed  to  be  transmitted  to  the  surrounding  fluid  cells  immediately 
adjacent  to  the  heated  surfaces  by  adding  corresponding  heat  source  terms  in  the  energy  equation. 
As  illustrated  in  table  5-1,  the  inlet  temperatures  for  the  six  air  inflow  rates  varying  from  10.97 
to  91.44  m^/h-m^  were  respectively  17.3,  10.4,  5-2,  3.5,  2.6  and  2.1  °C  lower  than  the  average 
temperature  of  the  room  of  23.3  "C. 

Figures  5-1  to  5-6  show  the  calculated  velocity  distributions  in  the  vertical  center  plane  of  the  test 
room  for  the  six  different  air  inflow  rates.  As  shown  in  figure  5-1,  the  cold  air  coming  from  the 
inlet  travelled  down  towards  the  floor  due  to  the  downward  directed  buoyancy  force.  A portion 
of  flow  circulated  around  the  lower  left  comer  of  the  room  and  exited  through  the  return  air  grille. 
The  remaining  portion  proceeded  along  the  floor  surface,  turned  upward  after  impinging  onto  the 
concentrated  load,  and  after  being  accelerated  by  merging  with  the  hot  gas  stream  rising  from  the 
concentrated  load,  spread  radially  along  the  ceiling  and  entrained  into  the  main  flows  from  the 
inlet.  Two  recirculating  zones  were  observed,  one  situated  in  the  top  right  comer  of  the  room  and 
the  other  one  near  the  floor  in  the  vicinity  of  the  concentrated  load.  The  experimental  air  distribution 
patterns  on  the  vertical  center  plane  of  the  room  obtained  with  smoke  filaments  for  different  flow 
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are  given  in  figure  5-7  for  comparison  with  the  predictions.  As  shown  in  figures  5-1  and 
5-7. a,  the  predicted  general  flow  structure  agrees  quite  well  with  the  corresponding  experimental 
observations.  In  figure  5-2,  the  inflows  following  the  ceiling  spread  radially  toward  the  floor  and 
the  wall  opposite  to  the  entrance  because  of  the  increased  inlet  velocity  and  decreased  downward 
directed  buoyancy  effects.  The  flows  are  then  curved  along  the  wall  and  floor,  and  entrained  into 
the  jet  stream  or  depart  from  the  test  room.  It  can  be  seen  that  a secondary  recirculation  is  created 
in  the  vicinity  of  the  ceiling  and  the  concentrated  heat  source.  It  is  interesting  to  note  that  the 
recirculation  in  this  case  has  moved  toward  the  ceiling  in  comparison  to  figure  5-1  where  the 
recirculation  is  along  the  floor.  There  is  good  agreement  between  prediction  and  experimental 
observations  of  flow  patterns  by  comparison  of  figures  5-2  and  5-7.b. 

Figures  5-3  through  5-6  show  a turbulent  buoyant  wall  jet  issuing  from  the  inlet  grille,  spreading 
along  the  ceiling  and  turning  downward  and  horizontally  toward  the  outlet  after  impinging  onto 
the  opposite  wall.  A recirculating  flow  structure  appeared  in  the  whole  flow  domain  with  its  center 
located  near  the  concentrated  load.  The  predicted  flow  patterns  shown  in  figures  5-3  to  5-6  are 
generally  consistent  with  the  corresponding  experimental  observations  illustrated  in  figure  5-7. 
Some  examples  of  calculated  isotherms  in  the  middle  section  of  the  vented  room  are  shown  in 
figures  5-8  through  5-10  where  air  supply  rates  per  unit  floor  area  are  18.29,  54.86  and  73.15 
m^/h-m^,  respectively.  The  temperature  field  is  generally  dependent  upon  the  inlet  air  velocity, 
the  temperature  difference  between  the  supply  air  and  the  room  air,  and  the  distribution  and  output 
rate  of  the  heat  sources.  As  shown  in  figure  5-8,  the  air  temperature  increases  with  increasing 
distance  away  from  the  inlet  grille  due  to  continuous  entrainment  of  warm  air  into  the  cold  jet 
stream  discharging  from  the  inlet  and  flowing  toward  the  floor.  The  air  temperature  exhibits  a 
sharp  gradient  close  to  the  heat  source  and  its  distribution  generally  agrees  with  the  corresponding 
flow  field  illustrated  in  figure  5-1.  As  shown  in  figures  5-9  and  5-10,  the  isothermal  lines  in  the 
upper  portion  of  the  room  are  nearly  horizontal.  These  diminished  temperature  gradients  and  the 
increased  thermal  stratification  in  the  upper  region  are  attributed  to  greater  inlet  velocities  and 
better  mixing  of  the  cold  supply  air  with  warm  room  air. 

Prediction  of  buoyancy- affected  airflows  emerging  from  an  air  diffuser  in  a ventilated  room  has 
been  demonstrated  over  a wide  range  of  air  supply  rates  with  constant  heating  loads  using  the 
numerical  technique  presented  in  this  paper.  The  three-dimensional  distributions  of  air  velocity 
and  temperature  in  an  air  conditioned  room  are  calculated,  and  the  calculated  velocity  distributions 
are  generally  in  reasonably  good  agreement  with  experimental  observations  obtained  with  smoke 
filaments. 
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Table  5-1.  The  Numerical  Values  of  Temperature  Difference  between  the  Room  Air  and  the 
Supply  Air  and  Nondimensional  Parameters  Used  in  Numerical  Calculations 


Parameters  Used  in  Numerical  Simulations 

Inlet 

Inlet 

Temperature 

Reynolds 

Archimedes 

Flow  Rate 

Velocity 

Difference 

Number 

Number 

(m^/h-mh 

(m/s) 

CQ 

10.97 

0.975 

17.26 

38860 

0.365920 

18.29 

1.626 

10.36 

64430 

0.079040 

36.58 

3.251 

5-180 

128860 

0.009879 

54.86 

4.877 

3.452 

193290 

0.002927 

73.15 

6.502 

2.589 

257710 

0.001235 

91.44 

8.128 

2.071 

322150 

0.000632 
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INLET  VELOCITY 


Figure  5-1.  Distribution  of  Calculated  Velocity  Vectors  in  the  Center  Plane  for  Inflow  Rate  of 

10.97  m^/h-m^ 


INLET  VELOCITY 


Figure  5-2.  Distribution  of  Calculated  Velocity  Vectors  in  the  Center  Plane  for  Inflow  Rate  of 

18.29  mVm^ 
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.INLET  VELOCITY 


Figure  5-3.  Distribution  of  Calculated  Velocity  Vectors  in  the  Center  Plane  for  Inflow  Rate  of 

36.58 


INLET  VELOCITY 


Figure  5-4.  Distribution  of  Calculated  Velocity  Vectors  in  the  Center  Plane  for  Inflow  Rate  of 

54.86  m^/h-m^ 
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INLET  VELOCITY 


Figure  5-5-  Distribution  of  Calculated  Velocity  Vectors  in  the  Center  Plane  for  Inflow  Rate  of 

73.15  mVm" 


INLET  VELOCITY 


Figure  5-6  Distribution  of  Calculated  Velocity  Vectors  in  the  Center  Plane  for  Inflow  Rate  of 

91.44  m^/h-m^ 
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Figure  5-7.  Measured  Airflow  Patterns  for  Different  Airflow  Rates 
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Figure  5-8.  Calculated  Isotherms  in  the  Center  Plane  for  Inflow  Rate  of 

18.29  m^/h-m^ 


Figure  5-9.  Calculated  Isotherms  in  the  Center  Plane  for  Inflow  Rate  of 

54.86  m^/h-m^ 
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Figure  5-10.  Calculated  Isotherms  in  the  Center  Plane  for  Inflow  Rate  of 

73.15  m%-m^ 

6.  Conclusions  and  Future  Research  Needs 

As  briefly  demonstrated  in  the  above  examples,  the  "EXACT"  numerical  code  is  powerful  and  is 
able  to  predict  room  air  motion  and  contaminant  distribution  with  a satisfactory  accuracy  and 
within  an  acceptable  range  of  computational  effort.  Nevertheless,  it  is  important  to  recognize  the 
following  limitations  inherent  in  the  present  calculation  method. 

• The  calculation  domain  including  air  inlet  and  outlet  must  be  a rectangle. 

• The  reference  Reynolds  number  must  be  large  enough  so  that  the  viscous  effect  can  be 
negligible  except  near  the  wall  region. 

• The  temperature  gradient  in  the  flow  regime  must  be  small  enough  that  buoyancy  exerts 
little  influence  on  the  turbulence  structure. 

The  first  is  caused  by  the  use  of  standard  finite-difference  approximations  based  on  the  rectangular 
coordinate  system.  This  may  be  a serious  limitation  for  the  application  of  the  numerical  method 
to  spaces  enclosed  by  curved  surfaces  such  as  air  domes.  This  difficulty  is  expected  to  be  removed, 
however,  by  using  the  recently  developed  approximation  techniques  such  as  finite-element  method 
or  grid  generation  method  which  have  been  employed  extensively  in  the  field  of  numerical 
aerodynamics.  The  other  two  limitations  are  much  more  serious  than  the  first  one  because  they 
originate  from  the  inadequacies  of  the  basic  turbulence  model  itself. 

The  k - e turbulence  model  consists  of  a set  of  equations  governing  the  transport  process  of  turbulent 
kinetic  energy  and  its  dissipation  rate.  These  equations  for  k and  e together  with  the  eddy  viscosity 
formulation  are  not  the  exact  forms  derived  from  the  Navier  Stokes  equation  but  they  are  model 
equations  derived  from  several  assumptions  as  discussed  in  the  previous  chapters. 

Hence,  there  is  a fair  possibility  that  the  numerical  results  become  unrealistic  when  Reynolds 
number  is  not  large  enough  so  that  eddy  viscosity  is  as  small  as  molecular  viscosity  or  when  the 
buoyancy  effect  is  so  large  that  the  gravitational  force  exerts  a strong  directional  influence  on 
turbulence. 
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So  far,  several  authors  have  proposed  modified  versions  of  the  k-e  turbulence  model  or  different 
approaches,  which  can  account  for  these  additional  effects.  An  interesting  attempt  to  extend  the 
applicability  of  the  k-  e turbulence  model  for  high  Reynolds  number  was  carried  out  by  Jones  and 
Launder'**’).  Their  modification  was  mainly  to  make  the  empirical  constants  appearing  in  the 
conventional  k-e  turbulence  model  to  be  the  functions  of  the  local  turbulence  Reynolds  number 
by  a semi-empirical  approach  so  that  the  molecular  viscosity  effect  in  the  very  near  wall  region 
can  be  accounted  for. 

Although  their  modified  equations  have  been  applied  to  the  two-dimensional  low  Reynolds  number 
wall  flows  with  relative  success,  they  are  not  likely  to  be  applicable  to  the  gener^  recirculating 
low  Reynolds  number  flows. 


For  strongly  buoyant  flows,  several  researchers  proposed  different  schemes  called  the  second-order 
closure  model  “*  ’ which  is  much  more  complicated  than  the  k-e  turbulence  model.  Recently, 
Rodi'*^  and  associates  attempted  to  simplify  the  model  equations  proposed  by  Launder  and  asso- 
ciates and  clarified  the  applicability  of  their  simplified  version  to  various  buoyancy  influenced 
flows.  At  the  present,  the  study  for  the  buoyant  flow  prediction  has  not  been  conducted  as 
extensively  as  for  isothermal  flow  in  the  field  of  building  physics.  This  is  partially  due  to  the 
difficulty  of  experimental  verification  but  mainly  due  to  the  uncertainty  of  the  basic  model 
equations.  In  order  to  develop  effective  modifications,  it  is  an  urgent  task  to  determine  the 
applicable  range  of  the  present  method  by  providing  careful  comparative  studies  with  experimental 
observations  for  fundamental  buoyant  flows. 
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Appendix  A.  "EXACT"  user’s  guide 

A.l.  General  Scope  of  the  "EXACT"  code 

The  procedure  which  includes  most  of  the  theoretical  and  numerical  processes  described  in 
chapters  2 and  3 is  currently  available  by  the  use  of  the  "EXACT"  cede.  "EXACT",  which 
stands  for  Explicit  Arogorithm  for  Continuous  Turbulent  fluid  flow,  is  a complete  program 
for  predicting  indoor  air  distribution,  including  turbulent/thermal  effect,  and  was  developed 
by  the  first  author  based  on  the  previous  research  conducted  mainly  at  the  University  of  Tokyo 
and  adding  his  recent  experience.  Since  the  original  "EXACT"  code  was  intended  to  be 
processed  on  the  HITACS  810-20  computer  system  at  the  University  of  Tokyo,  a drastic 
alteration  was  made  in  order  to  achieve  the  effective  use  of  vector/parallel  processors  char- 
acteristic of  Cyber  205-2p  system  at  the  National  Institute  of  Standards  and  Technology. 
Hence,  the  user  is  ready  to  enjoy  peak  performance  of  a supercomputer  without  special 
modification  or  knowledge  about  program  vectorization.  The  code  was  further  modified  by 
the  third  author  to  reduce  the  data  storage  requirements  by  about  60%.  A non-vectorized 
version  of  the  latest  code  has  been  successfully  compiled  and  run  on  a Sun  3/260  workstation, 
and  a Compaq  386/25  microcomputer.  Since  detailed  descriptions  about  theoretical  and 
numerical  stragegy  employed  in  the  "EXACT"  code  has  already  been  given,  only  a summary 
of  important  features  is  given  as  follows: 

turbulence  effect: 

buoyancy  extended  k - e turbulence  model 
applicable  flows: 

three-dimensional  continuous  non-isothermal/buoyant  turbulent  flow 
(Bonssinesq  approximation  for  buoyant  flow) 

iterative  procedure: 

explicit  time  marching  technique  to  obtain  converged  solution  (periodic  or  time- 
dependent  problems  can  be  handled  by  adding  user  defined  subroutines  when  the 
boundary  condition  are  time  dependent) 

convective  term  approximation: 

upwind/central  combination  scheme  with  arbitrary  specification  for  switching 
parameter  and  location,  which  includes  central  and  hybrid  schemes. 

solution  procedure  for  Poisson  equation: 

pressure  relaxation  method 
boundary  condition: 

Symmetric,  inflow,  outflow  (velocity  or  pressure  type),  wall  boundary  conditions 
together  with  heat  flux  and  temperature/heat  transfer  coefficient  specified  boundary 
condition  (user  defined  subroutine  may  be  necessary  when  special  boundary  condition 
is  considered) 
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The  "EXACT"  code  consists  of  one  main  routine  (driver  program)  and  13  subroutines.  A 
listing  of  the  program  is  given  in  appendix  A.5. 


A.2  Determination  of  Memory  Size  and  Mesh  Layout  Subdivision  of  Flow 
Domain 

Flow  domain  to  be  considered  should  be  carefully  subdivided  into  cells  so  that  their  faces 
coincide  with  the  physical  wall  boundary,  inflow/outflow  boundaries  and  internal  obstacles. 
Both  uniform  and  non-uniform  mesh  layout  are  available  in  the  "EXACT"  code;  however,  it 
should  be  noted  that  an  abrupt  change  of  cell  intervals  sometimes  reduces  numerical  accuracy 
due  to  truncation  error.  Choice  of  axis  and  its  direction  are  arbitrary  under  isothermal  con- 
ditions, however,  positive  x-  direction  must  be  aligned  to  the  direction  of  the  gravitational 
force  for  buoyancy  influenced  problems.  In  order  to  handle  boundary  conditions,  three  dummy 
cells  are  attached  outside  the  real  flow  domain  in  each  axis,  two  dummy  cells  for  negative 
direction  and  one  dummy  cell  for  positive  direction.  Therefore,  a problem  which  uses 
21X23X16  cells  for  real  flow  domain  requires  24X26X19  cells  including  dummy  cells.  Since 
cells  are  numbered  from  one  to  the  cell  division  number  in  each  axis,  the  real  flow  region  is 
enclosed  by  cells  from  (three)  to  (cell  division  number  - 1). 

Source  program  modification 

In  order  to  minimize  inactive  computer  memories  and  for  maximum  efficiency  of  the  vector 
processor,  "EXACT"  code  is  designed  for  a fixed  number  of  unknown  variables  so  that  three 
dimensional  arrays  are  accessed  continuously  within  DO  loops.  Array  size  must  be  adjusted 
depending  on  the  problem  size  by  replacing  numbers  in  the  PARAMETER  statement  with 
required  cell  division  numbers.  If,  for  instance,  NX  x NY  x NZ  cells  including  three  dummy 
cells  are  required,  PARAMETER  statement  of  all  subroutines  should  be  written  as 

PARAMETER(L=NX,M=NY,N=NZ) 

where  NX,  NY  and  NZ  are  the  number  of  cells  in  the  x,  y and  z directions,  respectively.  The 
program  must  be  recompiled  and  assembled  for  each  problem.  If  the  compiler  used  supports 
the  INCLUDE  directive,  this  statement  can  be  put  in  an  include  file  and  changed  only  once. 

A.3  Input  data  format 

All  input  information  except  memory  size  is  stored  as  a formatted  permanent  file  on  Cyber 
855  or  for  a UNIX  or  DOS  system  in  any  permanent  file  to  which  input  can  be  redirected  (for 
example  EXACT3  < DataFile).  An  example , which  is  used  for  problem  presented  in  Chapter 
5,  is  given  as  follows.  This  permanent  file  is  made  local  on  Cyber  205  as  soon  as  the  batch 
job  stream  is  submitted. 
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Sample  Input  File  for  EXACTS 


1 

AIR  DISTRIBUTION 

PERFORMANCE  FOR 

4 . 0 

CFM  WITH  75 

% FREE  AREA  DIFFUSER 

2 

1999000, 

20, 

288000, 

2 

3 

257710, 

0.71, 

-0.001235, 

1.0, 

0.0010 

4 

0.09, 

1.44, 

1.92, 

O 

o 

i — 1 

1.0 

5 

0 

.0625, 

0.0625, 

0.0625, 

0.0625, 

0.0625 

0 

.0625, 

0.0625, 

0.1250, 

0.1250, 

0.29774 

0. 

29774, 

0.29774, 

0.29774, 

0.17188, 

0.17188 

0. 

17188, 

0.17188, 

0.20833, 

0.20833, 

0.20833 

0. 

18485 

0. 

16667, 

0.16667, 

0.16667, 

0.16667, 

0.250 

0. 

41667, 

0.500, 

0.500, 

0.6250, 

0.6250 

0 

. 6250, 

0.6250, 

0.6250, 

0.6250, 

0.41667 

0.250, 

0.250, 

0.250, 

0.16667, 

0.16667 

0.125, 

0.125, 

0.125, 

0.125, 

0.125 

0.125, 

0.125, 

0.1875, 

0.1875, 

0.29167 

0. 

29167, 

0.16667, 

0.16667, 

0.125, 

0.125 

6 

6, 

6, 

6 

7 
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8 

1 

, 4, 

8, 

2, 

2,  3, 

6, 

0.0 

2 

, 5, 

8, 

2, 

2,  3, 

6, 

1.0 

3 

, 5, 

8, 

2, 

2,  2, 

6, 

0.0 

4 

, 5, 

8, 

2, 

2,  3, 

6, 

0.21140 

5 

, 5, 

8, 

2, 

2,  3, 

6, 

0.022194 

6 

, 5, 

8, 

2, 

2,  3, 

6, 

1.0 

8 

, 19, 

22, 

2, 

3,  3, 

7, 

0.0 

1 

, 18, 

22, 

2, 

2,  3, 

7, 

0.0 

2 

, 19, 

22, 

2, 

2,  3, 

7, 

-0.29090 

3 

, 19, 

22, 

2, 

2,  2, 

7, 

0.0 

6 

, 19, 

22, 

2, 

2,  3, 

7, 

0.0 

10 

, 28, 

29, 

3, 

22,  3, 

19, 

0.14286 

10 

, 20, 

21, 

23, 

24,  3, 

8, 

0.14286 

10 

, 28, 

29, 

23, 

24,  9, 

19, 

0.14286 

10 

, 28, 

29, 

25, 

26,  3, 

19, 

0.14286 

10 

, 3, 

2, 

3, 

26,  3, 

19, 

0.14286 

11 

, 3, 

4, 

3, 

2,  3, 

19, 

0.14286 

11 

, 5, 

8, 

3, 

2,  7, 

19, 

0.14286 

11 

, 9, 

18, 

3, 

2,  3, 

19, 

0.14286 

11 

, 19, 

22, 

3, 

2,  8, 

19, 

0.14286 

11 

, 23, 

28, 

3, 

2,  3, 

19, 

0.14286 

11 

, 3, 

28, 

26, 

27,  3, 

19, 

0.14286 

11 

, 21, 

28, 

22, 

23,  3, 

8, 

0.14286 

11 

, 21, 

28, 

25, 

24,  3, 

8, 

0.14286 

12 

, 3, 

28, 

3, 

26,  19, 

20, 

0.14286 

12 

, 21, 

28, 

23, 

24,  9, 

8, 

0.14286 

13 

, 28, 

29, 

3, 

22,  3, 

19, 

0.0 

13 

, 20, 

21, 

23, 

24,  3, 

8, 

0.0 

13 

28, 

29, 

23, 

24,  9, 

19, 

0.0 

13 

, 28, 

29, 

25, 

26,  3, 

19, 

0.0 

13 

3, 

2, 

3, 

26,  3, 

19, 

0.0 

14 

3, 

4, 

3, 

2,  3, 

19, 

0.0 

14 

5, 

8, 

3, 

2,  7, 

19, 

0.0 

14 

9, 

18, 

3, 

2,  3, 

19, 

0.0 

14 

19, 

22, 

3, 

2,  8, 

19, 

0.0 

14 

23, 

28, 

3, 

2,  3, 

19, 

0.0 

14 

3, 

28, 

26, 

27,  3, 

19, 

0.0 

14 

21, 

28, 

22, 

23,  3, 

8, 

0.0 

14 

21, 

28, 

25, 

24,  3, 

8, 

0.0 

15 

3, 

28, 

3, 

26,  19, 

20, 

0.0 

15 

21, 

28, 

23, 

24,  9, 

8, 

0.0 

9 

1 

21, 

28, 

•23, 

24, 

3 
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3 


10 


20, 

20, 

23, 

2A, 

3, 

28, 

28, 

10, 

18, 

3, 

3, 

3, 

8, 

21, 

7, 

1 

1, 

29, 

1, 

27, 

1, 

Input  information  is  written  with  following  format  and  order. 

1 Comment  line 
format:  20A4 
example: 

AIR  DISTRIBUTION  PERFORMANCE  FOR  4.0  CFM  WITH  75  % FREE  AREA  DIFFUSER 

*this  comment  is  printed  on  top  of  LP  image  listing  and  the  listing  of  each  dependent  variable. 

2 calculation  condition  1 

stored  at:  KSTM,  NSTM,  MAXT,  INIC 

format:  free 

example: 

1999000,,  20,  288000,  2 

*KSTM  maximum  time  iteration  steps 

If  accumulated  time  iteration  counter  KSTP  exceeds  KSTM,  time  iteration  is 
terminated  and  subroutine  OUTPUT  is  processed. 

*NSTM  maximum  pressure  iteration  steps 

If  pressure  iteration  counter  NSTP  exceeds  NSTM,  pressure 
iteration  is  unconditionally  terminated  and  next  time  iteration  begins, 
(recommended  value  betwen  10  and  301 


*MAXT  maximum  CPU  time  in  seconds. 

Accumulated  CPU  time  is  measured  once  each  time  iteration  and  if  it  exceeds  MAXT,  time 
iteration  is  terminated  and  subroutine  OUTPUT  is  processed. 

Job  termination  is,  therefore,  controlled  by  either  KSTM  or  MAXT  unless  divergence  occurs. 

*INIC  Input/output  unformatted  file  controller. 

For  INIC  > 2,  initial  flow  field  is  assumed  to  be  stored  as  an  unformatted  permanent 
file  on  Cyber  855,  otherwise,  calculation  is  started  from  0 flow  field  which  is  generated 
internally  by  the  subroutine  ARAEN. 

For  INIC  < 2,  final  flow  field  is  stored  as  a new  unformatted  permanent  file  on  Cyber 
855,  otherwise,  it  is  lost  as  soon  as  the  job  is  terminated. 

Recommended  value 

1 to  generate  initial  flow  field  using  small  MAXT  or  KSTM  value. 

2 to  resume  interrupted  calculation) 
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3 calculation  condition  2 


stored  at:  RE,  PR,  AR,  BETA,  EPS,  DT,  ENMX 

format:  free 

example: 

257710,  0.71,-0.001235,  1.0,  0.0010,  0.010,  10.0 

*RE  Reynolds  number  calculated  from  (see  below) 

*PR  Prandtl  number  calculated  from  (see  below) 

*AR  Archimedes  number  calculated  from 

*BETA  acceleration  coefficient  for  pressure  relaxation  iteration 

(recommended  value  1.41 

*EPS  maximum  continuity  error  criteria 

(recommended  value  5 x 10"^~5  x 10“^  ) 

too  large  an  EPS  sometimes  causes  instability  of  calculation. 

*DT  non-dimensional  time  step 

DT  is  chosen  from  the  stability  criteria  for  both  convection  and  diffusion 
terms. 

*ENMX  divergence  criteria. 

If  volumetric  mean  energy  exceeds  ENNX,  calculation  is  unconditionally 
terminated  and  subroutine  OUTPUT  is  processed. 

ENMX  is  used  to  detect  an  abnormal  calculation  condition  or  its  sympton. 
(recommended  value  10.01 


*normalization  of  dependent  variables 
symbol  meaning 

Lo  length  scale 

Uq  velocity  scale 

V kinemateic  viscosity 


example 


To 


reference  temperature 


ATq  temperature  difference  scale 

P volumetric  expansion  coefficient 


1 m or  inlet  width 

1 m/s  or  inlet  velocityu 

1.5  X 10'^  mVs  for  nor- 
mal air 

average  interior  tem- 
perature in  °K 

1 K or  largest  possible 
temperature  diffemce 

1/T°  for  normal  air 


a 


thermal  diffusivity 


2.1  X 10'^  mVs  for  nor- 
mal air 


P 


density 


1 .2  kg/m^  for  normal  air 
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specific  heat 


C 


p 


g 


gravitational  acceleration 


10.05  kJ/kg-  (2.4 
kCal/kg-K)  for  normal 
air 

9.8  m/s^ 


All  dependent  variables  must  be  properly  normalized  prior  to  calculation  using  the  following 
independent  dimensional  units. 


symbol 

meaning 

unit 

time 

Lo/Uq 

turbulence  energy 

IJ  ^ 

So 

dissipation  rate  of  turbulence  energy 

Uo^/Lo 

V«) 

eddy  viscosity 

UoLo 

Oo 

thermal  transfer  coefficient 

Uo 

qo 

thermal  flux 

UoATo 

Dimensional  standard  units  for  other  dependent  variables  are  automatically  chosen  in 
combination  with  above  dimensional  units. 

4 empirical  constants  for  turbulence  model 

stored  at:  ZCD,  ZCl,  ZC2,  ZC3,  ZSQ,  ZSE,  ZSC, 

format:  free 

example: 

0.09,  1.44,  1.92,  1.00,  1.0,  1.3,  0.9 

*ZCD,  ZCl,  ZC2,  ZSQ,  ZSE,  ZSC  are  equivalent  to  Cq,  Cj,  C2,  C3,  a^,  a^and  cjeused  in 
equations  (2-43),  (2-46)  and  (2-47). 

5 cell  interval  data 

stored  at  arrays:  DX,DY,  DZ 

format:  free 

example 


0 .0625. 

0.0625. 

0.0625. 

0.0625, 

0.0625, 

0.0625, 

0 .0625, 

0.0625, 

0.0625, 

0.1250, 

0.1250, 

0.29774, 

0.29774, 

0.29774, 

0.29774, 

0.29774, 

0.29774, 

0.17188, 

0.17188, 

0 . 17188, 

0.17188, 

0 . 17188, 

0 . 17188, 

0.20833, 

0.20833, 

0.20833, 

0 . 18485, 

0 . 18485. 

0.18485 

0 .16667, 

0 .16667. 

0 .16667. 

0 .16667, 

0.250, 

0.250, 

0 .41667, 

0 .41667, 

0.500, 

0.500, 

0 . 6250, 

0 . 6250, 

0 . 6250, 

0 . 6250, 

0 . 6250, 

0 . 6250, 

0 . 6250, 

0 . 6250, 

0 . 41667, 

0.41667, 

0 . 41667, 

0.250, 

0.250, 

0.250, 

0.16667, 

0.16667, 

0 .16667 

0.125. 

0.125. 

0.125. 

0.125, 

0 . 125, 

0.125, 

0.125, 

0.125, 

0.125, 

0.1875, 

0.1875, 

0.29167, 

0.29167, 

0.29167, 

0.29167, 

0 .16667, 

0.16667, 

0.125, 

0.125. 

0.125 
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underlined  values  are  intervals  for  dummy  and  terminal  real  cells. 


*non-dimensional  cell  intervals  are  written  from  first  cell  to  terminal  cell  from  X,  Y to  Z 
direction. 

There  must  be  L,  M,  and  N elements  in  X,Y  and  Z direction  in  correspondence  with  the  values 
declared  at  the  aforementioned  PARAMETER  statement.  Intervals  of  the  three  dummy  cells 
must  take  the  same  values  as  those  of  the  nearest  real  cell,  i.e. 

DX(1)=DX(2)=DX(3),  DX(L)=DX(L-1) 

DY(1)=DY(2)=DY(3),  DY(M)=DY(M-1) 

DZ(1)=DZ(2)=DZ(3),  DZ(N)=DZ(N-1) 

6 image  listing  pointer 

stored  at  array:  ICON 
format:  free 
example: 

6,  6,  6 

*Spatial  variations  of  all  dependent  variables  is  given  as  a LP  image  listing  for  Y-Z  Z-X,  X-Y 
plane  at  locations  where  this  pointer  specifies. 

For  instance,  (14,  2,  2)  means  that  LP  listing  is  given  for  Y-Z  plane  at  1=14,  Z-X  plane  at 
J=3  and  X-Y  plane  at  K=3. 

7 number  of  boundary  conditions 

stored  at:  NIN 
format:  free 

example: 


41 

*NIN  is  the  number  of  given  boundary  conditions  following  this  line. 


8 boundary  condition  data 

stored  at  arrays:  IIN,  UIN 


format:  free 

1,  4, 

8, 

2, 

2, 

3, 

6, 

0.0 

2, 

5, 

8, 

2, 

2, 

3, 

6, 

1.0 

3, 

5, 

8, 

2, 

2, 

2, 

6, 

0.0 

4, 

5, 

8, 

2, 

2, 

3, 

6, 

0.21140 

5, 

5, 

8, 

2, 

2, 

3, 

6, 

0.022194 

6, 

5, 

8, 

2, 

2, 

3, 

6, 

1.0 

8, 

19, 

22, 

2, 

3, 

3, 

7, 

0.0 

1, 

18, 

22, 

2, 

2, 

3, 

7, 

0.0 

2, 

19, 

22, 

2, 

2, 

3, 

7, 

-0.29090 

3, 

19, 

22, 

2, 

2, 

2, 

7, 

0.0 

6, 

19, 

22, 

2, 

2, 

3, 

7, 

0.0 

10, 

28, 

29, 

3, 

22, 

3, 

19, 

0 . 14286 

10, 

20, 

21, 

23, 

24, 

3, 

8, 

0 .14286 

10, 

28, 

29, 

23, 

24, 

9, 

19, 

0.14286 

10, 

28, 

29, 

25, 

26, 

3, 

19, 

0 . 14286 

10, 

3, 

2, 

3, 

26, 

3, 

19, 

0 . 14286 

11, 

3, 

4, 

3, 

2, 

3, 

19, 

0 . 14286 

11, 

5, 

8, 

3, 

2, 

7, 

19, 

0 .14286 

11, 

9, 

18, 

3, 

2, 

3, 

19, 

0 .14286 
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11, 

19, 

22, 

3, 

2, 

8, 

19 

11, 

23, 

28, 

3, 

2, 

3, 

19 

11, 

3, 

28, 

26, 

27, 

3, 

19 

11, 

21, 

28, 

22, 

23, 

3, 

8 

11, 

21, 

28, 

25, 

24, 

3, 

8 

12, 

3, 

28, 

3, 

26, 

19, 

20 

12, 

21, 

28, 

23, 

24, 

9, 

8 

13, 

28, 

29, 

3, 

22, 

3, 

19 

13, 

20, 

21, 

23, 

24, 

3, 

8 

13, 

28, 

29, 

23, 

24, 

9, 

19 

13, 

28, 

29, 

25, 

26, 

3, 

19 

13, 

3, 

2, 

3, 

26, 

3, 

19 

14, 

3, 

4, 

3, 

2, 

3, 

19 

14, 

5, 

8, 

3, 

2, 

7, 

19 

14, 

9, 

18, 

3, 

2, 

3, 

19 

14, 

19, 

22, 

3, 

2, 

8, 

19 

14, 

23, 

28, 

3, 

2, 

3, 

19 

14, 

3, 

28, 

26, 

27, 

3, 

19 

14, 

21, 

28, 

22, 

23, 

3, 

8 

14, 

21, 

28, 

25, 

24, 

3, 

8 

15, 

3, 

28, 

3, 

26, 

19, 

20 

15, 

21, 

28, 

23, 

24, 

9, 

8 

*Default  boundary  condition  employed  in  the 

described  in  the  next  subsection. 


0 . 14286 
0.14286 
0 . 14286 
0.14286 
0.14286 
0.14286 
0 . 14286 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 

EXACT"  code  is  the  symmetric  wall  condition 


*Since  boundary  condition  data  are  referenced  in  regular  sequence,  earlier  condition  including 
default  boundary  condition  may  be  overwritten  by  the  latter  one. 

*Boundary  condition  data  consist  of  boundary  condition  number,  boundary  location  and 
boundary  parameter. 

General  format  of  boundary  condition  data  is  given  as  follows. 

Where  in  is  the  boundary  condition  number  II,  12,  Jl,  J2,  Kl,  K2  are  the  boundary  location 
in  X,  Y and  Z-direction  in  cell  number,  SEV  is  the  boundary  parameter. 

^Boundary  condition  data  for  IH-l  6 are  used  to  impose  specified  boundary  value  to  each 
dependent  variable  with  the  location  1=11  to  12,  J=J1  to  J2,  K=K1  to  K2  in  cell  number 


III  function 

1 specify  velocity  component 

in  X direction 

2 specify  velocity  component 

in  Y direction 

3 specify  velocity  component 

in  Z direction 

4 specify  turbulence  energy 

5 specify  dissipation  rate  of 

turbulence  energy 

6 specify  temperature 

difference 


effect 

U(U,K)  = SERV 

1=11  toI2,J=Jl  toJ2,  K=K1  toK2 

Va  J,K)  = SERV 

1=11  to  12,  J=J1  to  J2,  K=  Kl  to  K2 

W(U,K)  = SERV 

1=11  toI2,J=Jl  toJ2,K=Kl  toK2 

Q(I  J,K)  = SERV 

1=11  toI2,J=Jl  toJ2,K=Kl  toK2 

E(I,J,K)  = SERV 

I=I  1 to  12,  J= J 1 to  J2,  K=  K 1 to  K2 

C(U,K)  = SERV 

1=11  to  12,  J=J1  to  J2,  K=  Kl  to  K2 
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*Boundary  conditions  for  III  = 7 to  9 are  prepared  for  pressure  boundary  condition.  Pressure 
boundary  is  located  on  the  cell  surface  between  dummy  cell  and  terminal  real  cell.  Since 
velocity  component  normal  to  the  pressure  boundary  is  determined  from  calculation,  work 
array  to  conserve  velocity  component  are  released  prior  to  calculation  to  allow  temporal 
velocity  variation.  For  11=7,  II  is  the  dummy  cell  number  where  pressure  is  defined  outside 
the  real  flow  domain  and  12  specifies  the  location  where  work  array  to  conserve  U value  on 
the  pressure  boundary  is  released.  Hence  II  =12  or  II  + 1 = 12  are  permitted  in  this  case. 


in 

7 

8 

9 


function 

gffggt 

specify  pressure  boundary 

Pa,J,K)  = SERV 

normi  to  X axis 

1=11,  J=J1  toJ2,  K=K1  toK2 
SX(I,J,K)  = 1.0 

specify  pressure  boundary 

P(I,J,K)  = SERV 

normal  to  Y axis 

1=11  to  12,  J=J1,K=K1  toK2 
SY(I,J,K)=  1.0 

specify  pressure  boundary  normal  to  Z axis 

Pa,J,K)  = SERV 

1=11  to  12,  J=J1  to  J2,  K=  K1 
SZ(I,J,K)  = 1.0 

where  SX,  SY,  SZ  are  work  arrays  to  conserve  U,V,  W. 


*Boundary  conditions  for  111=10  to  12  are  prepared  to  set  power  law  type  wall  boundary 
condition  in  which  equation  3-42  is  assumed.  SEV  is  in  this  case  equivalent  to  n in  equation 
3-42  and  a value  of  1/7  is  commonly  used  for  the  fully  developed  turbulent  boundary  layer. 
Wall  boundary  is  located  between  terminal  real  cell  and  dummy  cell. 


in 

function 

boundarv  location 

10 

specify  wall  boundary 
normtd  to  X axis 

between  1=11  and  12 
forJ=  J1  to  J2,  K=K1  toK2 

11  is  a terminal  real  cell  and  12  is  an 
adjacent  dummy  cell  numbrt 

11 

specify  wall  boundary 
normal  to  Y axis 

between  J=J1  and  J2 
for  1=11  to  12,  K=K1  toK2 

J1  is  a terminal  real  cell  and  J2  is  an 
adjacent  dummy  cell  number 

12 

specify  wall  boundary 
normsil  to  Z axis 

between  K=K1  and  K2 
for  1=11  to  12,  J=J1  toJ2 

11  is  a terminal  real  cell  and  12  is  an 
adjacent  dummy  cell  number 

*Boundary  conditions  for  111=  13  to  15  are  preapred  to  set  thermal  flux  across  the  wall 
boundary  appearing  in  equation  3-47.  Thermal  flux,  SEV,  takes  positive  value  when  its 
direction  is  from  dummy  cell  to  real  cell. 

in 

function 

bguncj^  loqapon 

13 

specify  wall  boundary 
normal  to  X axis 

same  as  HI  = 10 
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14 

specify  wall  boundary 
normal  to  Y axis 

same  as  IH  = 1 1 

15 

specify  wall  boundary 
normal  to  Z axis 

same  as  in  = 12 

^Boundary  conditions  for  in=  1 6 to  1 8 are  used  to  set  local  thermal  transfer  coefficient  defined 
in  equation  3-48. 

Temperature  must  be  specified  using  IIT=6  boundary  condition  at  the  wall  adjacent  dummy 

cell  before  this  line  appears. 

Non-dimensional  thermal  transfer  coefficient  is  stored  at  SEV. 


in 

function 

boundary  location 

16 

specify  wall  boundary 
normal  to  X axis 

same  as  in=  10 

17 

specify  wall  boundary 
normal  to  Y axis 

smae  as  in=  1 1 

18 

specify  wall  boundary 
normal  to  Z axis 

same  as  in=  12 

* Boundary  conditions  for  in=  19  to  21  are  used  to  specify  the  wall  temperature  defined  in 
equatins  3-49 

in  function  boundary  location 

19  specify  wall  temperatue  same  as  in=  10 

in  X plane 

20  specify  wall  temperature  smae  as  in=  1 1 

in  Y plane 


21  specify  wall  temperatue 

in  Z plane 


same  as  in=  12 


* Boundary  conditions  for  in=  22  to  24  are  used  to  specify  the  K slippage  condition  per 
equation  (3-51) 


in 

function 

boundary  location 

22 

specify  k slippage 
normd  to  X axis 

same  as  in=  10 

23 

specify  k slippage 
normal  to  Y axis 

smae  as  in=  1 1 

24 

specify  k slippage 
normal  to  Z axis 

same  as  in=  12 

9 obstacle  location  data 

stored  at 

:NOBS/  lOB 

format 

Tree 

example 

1 
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8 


21,  28,  23,  24,  3, 

*When  there  are  obstacles  in  the  flow  domain,  such  as  furniture,  dependent  variables  within 
and  on  the  surface  of  obstacles  are  made  unchanged  in  the  time  iteration  step  by  setting  the 
obstacle  location  data,  (wall  boundary  condition,  velocity  component  normal  to  the  obstacle 
wall,  thermal  flux  across  the  obstacles  have  to  be  imposed  by  setting  boundary  condition  data 
if  necessary) 

The  obstacle  location  data  are  written  as  follows: 

NOBS/11,12,  Jl,  J2,K1,K2 

where  NOBS  is  the  number  of  the  obstacles  and  following  location  data. 

If  NOBS  = 0 the  whole  flow  domain  is  assumed  to  be  filled  with  fluid  and  there  must  not  be 
location  data.  Cells  within  the  range  of  1=11  to  12,  J=J1  to  J2,  K=K1  to  K2  in  cell  number 
are  treated  as  dummy  cells. 

10  Heat  Generation  Rate  Data 

stored  at  NS  OR 
format  free 
example 

3 

Stored  at  I1,I2,J1,J2,K1,K2,SERV 

format:  free 

example 


20, 

20, 

23, 

24, 

3, 

8, 

-1.26057 

28, 

28, 

10, 

18, 

3, 

11, 

-0 .034417 

3, 

3, 

8, 

21, 

7, 

16, 

-0 .056347 

NSOR  is  the  number  of  heat  generation  sources.  If  there  are  none,  NSOR  = 0. 

The  each  volume  heat  generation  rate  is  set: 

H(I,J,K)  = SERV  in  the  region  defined  by 
for  1=  II  to  12,  J=  Jl  to  J2  and  K=  K1  to  K2 

1 1 upwind  interpolation  data 

stored  at  NCR 
format  :free 
example 

1 

stored  at  ICR,  CR 
format:  free 
example 

1,  29,  1,  27,  1,  20,  2.0 

*The  range  and  magnitude  of  the  switching  parameter  for  the  upwind/central  combination 
scheme  described  in  3- 1 are  controlled  by  upwind  interpolation  data.  The  upwind  interpolation 
data  are  written  as  follows. 
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NCR  is  the  number  upwind  interpolation  data  and  the  following  location  and  switching 
parameter  II,  12,  Jl,  J2,  Kl,  K2,  CR  is  read  NCR  times.  If  NCR  = 0 all  convection  terms  in 
the  momentum  equation  are  approximated  using  central  difference  scheme,  and  there  must 
not  be  location  and  switching  parameter.  Convection  terms  in  the  momentum  equation  within 
the  range  of  1=  II  to  12,  J=  Jl  to  J2,  K=  Kl  to  K2  in  cell  number  are  upwinded  with  the  factor 
of  CR. 


A.4  Batch  job  stream 

Since  computation  on  Cyber  205  is  conducted  only  through  a batch  job  on  the  Cyber  855,  the 
batch  job  stream  is  prepared  and  submitted  on  the  Cyber  855.  An  example  of  the  batch  job 
stream  and  its  format  will  be  given  briefly. 

line  function 

1.. .4  job  control  cards  and  user  identification,  user  account  information  is 

assumed  to  be  stored  on  Cyber  855  as  a permanent  file  names  USER. 

5 job  category  and  limit  information 

JCAT,  TL,  LP  parameters  may  be  replaced  according  to  the  volume  of 
calculation. 

6.. .1 1 initial  flow  field  is  assumed  to  be  stored  as  an  unformatted  permanent 

file  named  A A AAA  on  Cyber  855.  AAA  A A is  accessed  from  Cyber 

205  and  made  a temporary  file  named  UNITE 

UNIT  1 is  converged  to  a 64bit  local  file,  UNIT2  by  a permanent  load 

module  C6064,  which  is  a copy  of  public  file,  prepared  for  data  con- 

vergion  from  Cyber  855  to  Cyber  205 

Finally,  UNIT2  is  renamed  UNIT22  and  prepared  for 

calculation. 

12  compile  of  EXACTS  code  by  FTN200  compiler 

13  input  data  is  assumed  to  be  stored  as  a formatted 
permanent  file  named  INDATA 

INDATA  is  accessed  from  Cyber  205  and  made  a local  file  named 
UNIT5 

14.. .  16  load  and  go 

17. . .23  final  calculated  flow  field,  UNIT21,  is  renamed  UNITl, 

converted  to  a 60  bit  data  by  *c6460,  then  sent  and  saved  as  a new 
unformatted  permanent  file  named  BBBB 

24  LP  image  listing,  UNIT6,  is  copied  to  a local  file  OUTPUT.  OUTPUT 

information  together  with  program  source  listing,  load  map,  and  day  file 
may  be  accessed  from  the  Cyber  855  using  QGET  command 

25..  .28  specification  of  the  program  and  input  data  name. 

Sample  Batch  File  for  Cyber  205 
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/JOB 
/NOSEQ 
FLOW,ST205 
/READ, USER 

RESOURCE, JCAT=P3,TL=2720,LP=20. 

MFLONK,UNm,ST=CS2,DD=UU,JCS="USER,LISHI,TAKASHI." 

"ATTACH,TMFK02." 

REQUEST,UN1T2/300,RT=W. 

ATTACH,C6064. 

C6064. 

SWITCH,UNIT2,UNIT22. 

FTN200,OPT=  1 ,SC=  1 ,UNS  AFE=  1 . 

COPY,NEWDUMP,DUMP. 

COPY,INPUT,UNIT%. 

LOAD(GRLP=*VEL). 

COPY,NEWDUMP,DUMP. 

GO. 

RETURN,UNm. 

SWITCH,UNIT2 1 ,UNIT1 . 

REQUEST,UNIT2/300,TR=W. 

ATTACH,C6460. 

C6460. 

MFLINK,UNIT2,ST=CS2,DD=UU,JCS="USER,LISHI,TAKASHI.", 

"DEFINE,MM!K03." 

COPY,UNIT^,OUTPUT. 

FILES,PRIVATE=*. 

/EOR 

/READ,EXACT# 

/EOR 

/READ,SEAIRIK 


This  batch  job  strean,  named  SUBFILE  is  submitted  using  following  command 
SUBMIT,SUBnLE,E. 

On  UNIX  and  extended  DOS  386-computer  no  batch  job  is  required.  One  must  only  compile 
and  link  the  source  code.  Create  the  data  file  describing  the  problem  and  run  the  compiled 
code  as 

EXACT3  < DataFile 

where  DataFile  is  the  name  of  the  file  describing  the  problem.  Output  will  be  to  the  screen 
and  also  to  a file  name  EXACT3.DAT.  If  this  file  is  not  renamed  it  will  be  over  written. 


A.5  Listing  ofEXACT3 

The  following  is  a listing  of  EXACT3  for  the  Compaq  386/25  compiler  with  SVS 
FORTRAN-386.  Only  the  time  function  ISCONDS  must  be  rewritten  for  other  compiler 
(since  FORTRAN  does  not  have  a standard  time  function). 
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EXACT3  (R.  K-E  MODEL) 


CALL  SOLVER 


C 

C- 


C EXPLICIT  TIME-MARCHING  ARGORITHM  FOR 

C CONTINUOUS  THERMAL  FLUID  FLOW 

C 

C CODED  BY  T.KURABUTI,  1987 

C CODE  REVISED  BY  R.  GROT  1988  TO  REDUCE  STORAGE 

REQUIREMENTS 

C 


C 

INPUT 

DATA  FORMAT 

6 

. — 7 — 

c 

TITLE 

c 

KSTM 

NSTM 

MAXT 

INIC 

c 

RE 

PR 

AR 

BETA 

EPS 

DT 

ENMX 

c 

CD 

Cl 

C2 

C3 

SQ 

SE 

SC 

c 

DX 

(7F10.0) 

c 

DY 

(7F10.0) 

c 

DZ 

(7F10.0) 

c 

11 

J1 

K1 

c 

NIN 

c 

IIN 

(715  ) 

UIN  (FIO.O) 

c 

NOBS 

c 

11 

12 

J1 

J2 

K1 

K2 

c 

NSOR 

c 

11 

12 

J1 

J2 

K1 

K2 

C 

NCR 

C 

11 

12 

J1 

J2 

K1 

K2  CR 

C 1 2 3 4 5 

6 7 — 

C 

c 

C*****MAIN 

C 

PROGRAM  MAIN 
C 

C*****DECLARATION  OF  COMMON 
C 

c 

PARAMETER  ( L-29. M-27 , N-20 ) 

C 

C IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C INTEGER  SX.SY,S2 

COMMON  /CONTR/ 

1 TITLE(20) 

2,  RE  ,HRE  ,PE  , HPE  , PR  , AR  .BETA.EPS  , DT  , ENMX 

3 ,  KSTM, NSTM, INIC. MAXT, VOLM, KSTP 

4, ZCD  ,ZC1  . ZC2  , ZC3  , ZSQ  , ZSE  . ZSC  . HZSQ, HZSE, HZSC 

5, DA(10.60) 

C 

COMMON  /BOON/ 

1 DX(L+1)  .DY{M+1)  ,DZ(N+1) 

2.  CMR (L,M. N).NIN  ,IIN(100,7),UIN(100), NOBS, lOB (100, 6) 
3,NSOR,  ISORdOO,  6)  ,SOR(100) 

C 

COMMON 

2 U (L,M,  N)  , V(L,M,  N)  , W(L,M,  N)  . UU(L,M,  N)  , VV(L.M,  N)  . W 
W(L,M,N) 

3,P (L,M, N) ,D(L,M, N) ,S (L,M, N) , AFX(L,M, N) , DFX(L,M. N) 
5,Q{L,M,N)  .E(L,M,N)  ,C(L,M,N) 

6,SX(L.M,N) . SY(L,M. N) ,S2 (L,M, N) ,BE(L,M, N) 

7, XD  (L),YD  (M).ZD  (N) 

8, HX  (L),HY  (M),HZ  (N) 

9,  XIP  (L)  , YIP  (M)  , ZIP  (N) 

C 

C 

COMMON  /SCAL/  ICON(3) 

C 

DIMENSION  R1 (L+1) , R2 (M+1) , R3 (N+1) 

C 

OPEN  (22,FILE-'UNIT22' . FORM-' UNFORMATTED' ) 

OPEN  ( 1 0, FILE-' MEXACT3. OUT' . FORM-' FORMATTED' ) 

C 

C*****ARRAY  INITIALIZATION 
C 

CALL  ARAIN 
C 

C***»*DATA  INITIALIZATION 
C 

CALL  DATAIN 
C 

IF  ( INIC  .LE.  1 ) GO  TO  100 
C 

READ (22)  U, V, W. P. Q, E, C. R1 , R2 , R3 , KSTP 
C 

100  CONTINUE 
C 

C**«*-sOLVER 


IF  ( INIC  .EQ.  0 ) GO  TO  200 
IF  ( INIC  .EQ.  3 ) GO  TO  200 
C 

OPEN  (21,FILE-'UNIT21' , FORM-' UNFORMATTED' ) 

WRITE (21)  U,V,W,P,Q,E,C,DX,DY,DZ,KSTP 
CLOSE(21) 

C 

200  CONTINUE 
C 

C*****JOB  TERMINATION 
C 

CALL  OUTPUT 
C 

STOP 

END 

SUBROUTINE  DATAIN 
C 

C*****dECRALATION  of  COMMON 

C 

C 

PARAMETER  (L-29, M-27, N-20) 

C 

C IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C INTEGER  SX,SY,SZ 

COMMON  /CONTR/ 

1 TITLE(20) 

2,  RE  ,HRE  ,PE  , HPE  , PR  , AR  , BETA, EPS  , DT  , ENMX 

3,  KSTM, NSTM, INIC, MAXT, VOLM, KSTP 

4, ZCD  ,ZC1  ,2C2  ,2C3  , ZSQ  , ZSE  , ZSC  , HZSQ, HZSE, HZSC 

5, DA(10,60) 

C 

COMMON  /BOON/ 

1 DX(L+1)  ,DY(M+1)  ,DZ(N+1) 

2,CMR (L,M,N) , NIN  ,IIN(100,7),UIN(100), NOBS, IOB(100, 6) 
3,NSOR,  ISORdOO,  6)  ,SORd00) 

C 

COMMON 

2 U(L,M,N)  ,V(L,M.N)  ,W(L,M,  N)  ,UU(L,M,N)  ,VV(L,M,N)  ,W 
W(L,M,  N) 

3, P (L, M, N) , D (L. M, N) , S (L,M, N) , AFX (L,M, N) , DFX (L,M, N) 

5,  Q(L, M, N) , E (L,M, N) , C (L,M, N) 

6,  SX  (L,M.  N)  , SY  (L,  M,  N)  . SZ  (L,  M,  N)  . BE  (L,  M,  N) 

7, XD  (L),YD  (M),ZD  (N) 

8, HX  (L),HY  (M),HZ  (N) 

9,  XIP (L)  , YIP (M) , ZIP (N) 

C 

COMMON  /SCAL/  ICON (3) 

C 

DIMENSION  ICR (10, 6) , CR (10) 

C 

C**** ‘OBSTACLE  SIGN  INITIALIZATION 
C 

DO  250  K-3, N-1 
DO  250  J-3,M-1 
DO  250  1-3, L-2 
250  SX  (I,J,K)  - 1 
C 

DO  260  K-3, N-1 
DO  260  J-3,M-2 
DO  260  1-3, L-1 
260  SY  d,J,K)  - 1 
C 

DO  270  K-3,N-2 
DO  270  J-3,M-1 
DO  270  1-3, L-1 
270  SZ  (I,J,K)  - 1 
C 

C**“*DATA  INPUT 
C 

READ(5,100)  TITLE 

WRITE(6,600)  TITLE 

WRITEdO,  600)  TITLE 

READ(5,‘)  KSTM, NSTM, MAXT, INIC 

WRITE (6, 610)  KSTM, NSTM, MAXT, INIC 

WRITE (10, 610)  KSTM, NSTM, MAXT, INIC 

READ (5,*)  RE  , PR  , AR  , BETA, EPS  , DT  , ENMX 

WRITE(6,620)  RE  , PR  , AR  , BETA. EPS  , DT  , ENMX 

WRITEdO, 620)  RE  , PR  , AR  .BETA, EPS  , DT  , ENMX 

READ(5,*)  ZCD  , ZCl  , ZC2  , 2C3  , ZSQ  , ZSE  , ZSC 

WRITE(6,630)  ZCD  , ZCl  , ZC2  , ZC3  , ZSQ  , ZSE  .ZSC 

WRITEdO,  630)  ZCD  , ZCl  . 2C2  , ZC3  .ZSQ  , ZSE  , ZSC 

READ(5,  *)  (DXd)  , I-1,L) 

WRITE (6, 641)  (DX(I) , I-l, L) 

WRITEdO.  641)  (DXd)  . I-l,  L) 

READ (5, •)  (DY(J) , J-1,M) 

WRITE (6, 642)  (DY(J) , J-1,M) 

WRITE (10. 642)  (DY(J) , J-l.M) 

READ(5. •)  (DZ(K) ,K-1.N) 

WRITE (6, 643)  (DZ (K) , K-1, N) 

WRITEdO,  643)  (DZ  (K)  , K-1 , N) 

READ(5,‘)  ( ICON ( I) , I-l, 3) 

WRITE(6,650)  (ICON (I ) , I-l , 3 ) 

WRITEdO,  650)  (ICON  (I)  ,1-1,3) 
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DO  31  1-11,12 


C^ 

*«* 

•BOUNDARY  CONDITION  INPUT 

31 

CMRd,  J,K)  - CR 

(III) 

C 

C 

READ<5,^)  NIN 

30 

CONTINUE 

DO  10  I-1,NIN 

C 

10 

READ(5,*)  (IINd,  J)  , J-1,  7)  ,UIN(I) 

35 

CONTINUE 

c 

C 

c 

C 

WRITE (6. 660) 

IF  ( NCR  .EQ.  0 

) 

GO  TO  65 

WRITEdO,  660) 

WRITE(6,680) 

DO  40  I-1,NIN 

WRITEdO,  680) 

WRITE  (6,  661)  (IINd,  J)  , J-1, 7)  , UIN(I) 

DO  60  I-1,NCR 

WRITEdO,  661)  (IINd,  J)  , J-1,7)  ,UINd) 

WRITE(6,681)  (ICRd,  J)  , J-; 

40 

CONTINUE 

WRITEdO,  681)  (ICRd,  J)  , J' 

c 

60 

CONTINUE 

c* 

«** 

•OBSTACLE  BOUNDARY  CONDITION 

65 

CONTINUE 

c 

C 

READ(5,*)  NOBS 

C 

c 

C 

IF  ( NOBS  .EQ.  0 ) GO  TO  25 

C^ 

*** 

•SET  HXd)  ,HY(J)  , 

XD(I)  ,YD(J: 

c 

C 

DO  20  III-l,NOBS 

DO  200  I-l, L 

READ  (5,  •)  (lOBdll,  J)  , J-1,  6) 

HX  (I)  - 1.0 

/ 

DX(I) 

c 

XD  (I)  - 2.0 

/( 

DX(I)  + 

11  - lOBdll,  1) 

XIP  (I)  - DX(I  + 1) 

/( 

DX(I)  + 

12  - IOB(III,2) 

200 

CONTINUE 

J1  - lOBdll,  3) 

C 

J2  - IOB(III,4) 

DO  201  J-1,M 

K1  - IOB(III,5) 

HY  ( J)  -1.0 

/ 

DY(J) 

K2  - lOBdll,  6) 

YD  ( J)  -2.0 

/( 

DY(J)  + 

c 

YIP(J)  - DY(J+1) 

/( 

DY(J)  + 

DO  21  K-Kl  ,K2 

201 

CONTINUE 

DO  21  J-Jl  ,J2 

C 

DO  21  I-Il-l, 12 

DO  202  K-1, N 

21 

SX  (I,J,K)  - 0 

HZ  (K)  - 1.0 

/ 

DZ  (K) 

c 

ZD  (K)  - 2.0 

/( 

DZ(K)  + 

DO  22  K-Kl  ,K2 

ZIP (K)  - DZ (K+1) / ( 

DZ(K)  + 

DO  22  J-J1-1,J2 

202 

CONTINUE 

DO  22  I-Il  , 12 

c 

22 

SY  (I,  J,  K)  - 0 

c^ 

•** 

•PROTECTOR  SET  FOR 

BOUNDARY 

c 

c 

DO  23  K-K1-1,K2 

DO  210  III-1,NIN 

DO  23  J-Jl  ,J2 

c 

DO  23  I-Il  , 12 

11  - IINdll, 2) 

23 

SZ  (I,J,K)  - 0 

12  - IIN (III, 3) 

20  CONTINUE 
25  CONTINUE 

IF  ( NOBS  .EQ.  0 ) GO  TO  55 
WRITE(6, 670) 

WRITEdO,  670) 

DO  50  I-l,NOBS 

WRITE (6, 671)  (IOB(I, J) , J-1, 6) 
WRITEdO,  671)  dOB<I,  J)  , J-1, 6) 
50  CONTINUE 
55  CONTINUE 


•THERMAL  HEAT  SOURCE  DATA 


READ (5,*)  NSOR 

IF(NSOR  .EQ.  0)  WRITE(*,690) 

690  FORMATdH  ,10X,'****  NO  HEAT  SOURCES  •*’ 
IF (NSOR  .NE.  0)  THEN 

WRITE(*,691)  NSOR 

691  FORMATdH  ,10X,'****  HEAT  SOURCES  ••**•' 
1' NUMBER  - ' , 14, /) 

WRITE(*,692) 

692  FORMAT  (IHl,  ' II 12 J1 J2  . . 

SOURCE' ) 

DO  255  II-l,NSOR 

READ (5, *)  (ISOR (II, J) , J-1, 6) , SOR (II) 
WRITE (* , 681)  (ISOR (II, J) , J-1, 6) , SOR (II) 
255  CONTINUE 
ENDIF 


, /, lOX, 


J1  - IINdll,  4) 
J2  - IINdll, 5) 
K1  - IINdll,  6) 
K2  - IINdll,  7) 

IF  ( IINdll,!) 
DO  205  K-K1,K2 
DO  205  J-J1,J2 
DO  205  I-Il, 12 

205  SXd,  J,  K)  - 0 
ENDIF 

IF  ( IINdll, 1) 
DO  206  K-K1,K2 
DO  206  J-J1,J2 
DO  206  I-Il, 12 

206  SYd,  J,K)  - 0 
ENDIF 


IF  ( IINdll,!) 
DO  207  K-K1,K2 
DO  207  J-J1.J2 
DO  207  I-Il, 12 
SZ  (I,  J,  K)  - 0 
END  IF 

IF  ( IINdll, 1) 
DO  211  K-K1,K2 
DO  211  J-J1,J2 
SX(I2,J,K)  - 1 
END  IF 


.EQ.  1 ) THEN 


.EQ.  2 ) THEN 


.EQ.  3 ) THEN 


. EQ.  7 ) THEN 


•CRITICAL  MESH  REYNOLDS  NUMBER  INPUT 
READ (5, •)  NCR 
IF  ( NCR  .EQ.  0 ) GO  TO  35 
DO  30  III-1,NCR 

READ (5, •) (ICR (III, J), J-1, 6) , CR (III) 


11 

12 
J1 
J2 
K1 
K2 


ICRdll,  1) 
ICR(III,2) 
ICRdll,  3) 
ICRdll,  4) 
ICR  (III, 5) 
ICRdll,  6) 


DO  31  K-K1,K2 
DO  31  J-J1,J2 


.EQ.  8 ) THEN 


.EQ.  9 ) THEN 


IF  ( IINdll, 1) 
DO  212  K-K1,K2 
DO  212  I-Il, 12 
SYd,  J2,K)  - 1 
END  IF 

IF  ( IINdll, 1) 
DO  213  J-J1,J2 
DO  213  I-Il, 12 
S2(I, J,K2)  - 1 
END  IF 


CONTINUE 

•INITIAL  VALUE  FOR  SCALAR  QUANTITY  ( FOR  INIC  - 0,1 


QINI  - 0.1 

EINI  - 2CD  * QINI 

HRE  - 1.0  / RE 
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c 

' ,F15.7/  ) 

DO  300  K-1. N 

c 

DO  300  J-l.M 

641  FORMAT 

(IH  , 

’ /, 6(10F6.3/)  ) 

DO  300  I-l. L 

642  FORMAT 

(IH  , 

' ••••DY'  /.  6d0F6.3/)  ) 

c 

643  FORMAT 

(IH  , 

Dd.J.K)  - HRE 

C 

Qd.  J.K)  - QINI 

650  FORMAT 

(IH 

, /, lOX, ' *•** 

•DATA  OUTPUT  POINT^^^^^', 

Ed.  J.K)  - EINI 

// 

c 

1 

lOX, ' (' . 110, 

' , ' , 110, ' . ' , 110, ' ) ' . / ) 

300  CONTINUE 

C 

c 

660  FORMAT 

(IH  , 

, /, lox, ' •*«** 

BOUNDARY  CONDITION^ • • • • ' , 

c* 

••••INITIAL  CALCULATION  1 

// 

c 

1 

' . . . 

NOB. . . .11. . . 

.12 Jl' 

VOLM  - (L-3)  • (M-3)  • (N-3) 

2 

. ' . . . 

. J2 Kl.  o . 

cK2 SPV',/  ) 

VOLM  - 1.0  / VOLM 

661  FORMAT 

(IH  , 

7I6,F12.5) 

c 

C 

H2SQ  -1.0/  ZSQ 

670  FORMAT  (IH  . / 

. lOX,  ' •••••OBSTACLE  CONDITION^ •• • * ' . // 

HZSE  - 1.0  / ZSE 

1 

' . . . 

.11 12.  . . 

. Jl' 

HZSC  - 1.0  / ZSC 

2 

. ' . . . 

.J2 Kl.  . . 

.K2',/  ) 

PE  - RE  • PR 

671  FORMAT 

(IH  , 

616) 

HPE  - 1.0  / PE 

C 

c 

680  FORMAT 

(IH  ./.lOX 

, ' •••••CRITICAL  REYNOLDS 

c* 

••••INITIAL  CALCULATION  2 

NO. ••*••'// 

c 

1 

' . . . 

.11 12  . . . 

. Jl J2' 

DO  400  K-3.N-1 

2 

. ' . . . 

.Kl K2.  . . 

CMR'  /) 

DO  400  J-3.M-1 

681  FORMAT 

(IH  , 

616. F12 .5) 

DO  400  1-3, L-1 

C 

c 

RETURN 

DIVE  - DT  • ( ( XD(I)  *SX(I,  J,  K)  + XD(I-l)  -SXd-l,  J,K)  ) 
HX{I) 

1 + ( YD(J)*SY(I, J,K)  + YD (J-1) *SY(I. J-1,K) ) 

HY(J) 


2 

+ 

( ZD(K) 

•SZd.J.K)  + ZD(K-l)  •SZ  (I.  J,  K-1)  ) 

SUBROUTINE  ARAIN 

• 

H2(K)  ) 

c 

c 

c**^ 

••DECLARATION  OF  COMMON 

BE ( I . J 

o 

0 

1 

c 

c 

PARAMETER  ( L-2  9 , M-2  7 , N-2  0 ) 

IF  ( DIVE  .NE.  0. 

0 ) BEd.J.K)  - -BETA  / DIVE 

c 

c 

c 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

400 

CONTINUE 

c 

INTEGER  SX.SY.SZ 

c 

COMMON  /CONTR/ 

c* 

*** 

•FORMAT 

STATEMENT 

1 TITLE(20) 

c 

2, RE  ,HRE  .PE  ,HPE  , PR  . AR  , BETA. EPS  , DT  .ENMX 

c* 

*•* 

•READ 

3. KSTM. NSTM. INIC. MAXT, VOLM. KSTP 

c 

4, ZCD  .ZCl  .2C2  ,ZC3  , ZSQ  , ZSE  .ZSC  , HZSQ, HZSE, HZSC 

100 

FORMAT 

(20A4  ) 

5, DA(10, 60) 

110 

FORMAT 

{ 4110  ) 

c 

120 

FORMAT 

( 7F10.0  ) 

COMMON  /BOON/ 

130 

FORMAT 

( 7F10.0  ) 

1 DX(L+1)  ,DY(M+1)  .DZ(N+1) 

140 

FORMAT 

( 3110  ) 

2 

, CMR(L,M,N)  ,NIN  ,IINd00,7),UIN(100),  NOBS,  IOB(100.  6) 

150 

FORMAT 

( no  ) 

3.  NSOR,  ISORdOO,  6)  , SOR(IOO) 

160 

FORMAT 

( 71  5 

FIO.O  ) 

c 

170 

FORMAT 

{ 6110  ) 

COMMON 

180 

FORMAT 

( 6110 

FIO.O  ) 

2 U(L.M.N) . V(L,M, N) , W(L.M,N) , UU(L,M,N) . VV(L.M, N) . W 

c 

W(L. 

M,  N) 

c^ 

* • • 

•WRITE 

3.P(L,M,N) ,D(L,M, N) ,S(L,M,N) ,AFX(L.M,N) ,DFX(L,M,N) 

c 

5.Q(L,M, N) . E (L.M. N) ,C(L,M, N) 

600 

FORMAT 

(1H1////1H 

, 20X, 20A4, lOX////) 

6, SX(L,M. N) , SY(L,M. N) , SZ (L.M, N) , BE (L.M. N) 

c 

7,XD  (D.YD  (M),ZD  (N) 

610 

FORMAT 

( 

8,HX  (L).HY  (M).HZ  (N) 

1 

IH  ,2X 

,'KSTH; TIME  ITERATION  MAX 

9,  XIP (L) , YIP (M) .ZIP  (N) 

NO 

• . -' 

. 115/ 

c 

2 

, IH  .2X 

, ' NSTM; . . .PRESSURE  ITERATION  MAX 

COMMON  /SCAL/  ICON(3) 

NC 

1 . — ' 

. 115/ 

c 

3 

. IH  , 

2X, ' MAXT; . . 

4 

. IH  . 2X, ' INIC; . . 

. . INITIAL  FILE  DATA  CONTROL-'  , 115/ 

c**^ 

••ARRAY  INITIALIZATION 

620  FORMAT  ( 

1 

NUMBER-' , F15 . 7/ 

2 

NUMBER-' .FI  5. 7/ 

3 

NUMBER-' , F15 . 7/ 

4 

CONST-' .F15.7/ 

5 

LIMIT-' ,F15.7/ 

6 

DIVISION-'  ,F15.7/ 
7 

CONST-' . F15 . 7/ 

C 

630  FORMAT  { 


IH  .2X,'RE 
, IH  ,2X,'PR 
.IH  .2X,'AR 


•LAMINAR  REYNOLDS 
..LAMINAR  PRANDTL 
ARCHIMEDES 


, IH  , 2X, ' BETA;  . . ACCERATE  RELAXIZATION 
IH  ,2X,'EPS  .DIVERGENCE  TOLERANCE 

, IH  , 2X.  ' DT  ; TIME 

, IH  , 2X. ' ENMX; ....  CONVERGENCE  JUDGING 


) 


' , F15 . 7/ 
' ,F15.7/ 
' ,F15.7/ 
' , F15 . 7/ 
'.F15.7/ 
' . F15 . 7/ 


IH 
, IH 
. IH 
. IH 
. IH 
- IH 
, IH 


. 2X, ' ZCD 
. 2X. ' ZCl 
, 2X, ' ZC2 
, 2X, ' 2C3 
. 2X, 'ZSQ 
. 2X, ' ZSE 
, 2X. ' ZSC 


DO  100  K-1,N 
DO  100  J-1,M 
DO  100  I-l. L 

U d.J.K) 

V d.J.K) 

W d.J.K) 

UU  d.J.K) 

W d.J.K) 

WW  d.J.K) 

P d.J.K) 

D d.J.K) 

S d.J.K) 
AFXd.  J.K) 
DFXd.  J.K) 

Q d.J.K) 

E d.J.K) 

C d.J.K) 

SX  d.J.K) 

SY  d.J.K) 

SZ  d.J.K) 

BE  d.J.K) 


0 . 0 
0.0 
0.0 


100  CONTINUE 

DO  130  J-1.60 
DO  130  I-l. 10 
DAd.  J)  - 0.0 
130  CONTINUE 


82 


DO  150 

K-1,N 

DO  150 

J-1,M 

DO  150 

1-1,  L 

CMR  (I 

,J,K)  - 100000 

150 

CONTINUE 

DO  152 

I-l, L+1 

152 

DXd) 

- 0.0 

DO  153 

J-l.M+l 

153 

DY(J) 

- 0.0 

DO  154 

K-1,N+1 

154 

DZ(K) 

•PROTEC 

- 0.0 

TER  INITIALIZE 

c 

RETURN 

C 

END 


C*****ROOM  AIR  DISTRIBUTION  SOLVER 
C 

SUBROUTINE  SOLVER 


C 

PARAMETER  ( L-29, M-27 , N-20 ) 

C 

C IMPLICIT  DOUBLE  PRECISION  {A-H,0-Z) 

C INTEGER  SX,SY,SZ 

COMMON  /CONTR/ 

1 TITLE(20) 

2,  RE  ,HRE  ,PE  , HPE  , PR  . AR  , BETA, EPS  . DT  , ENMX 

3,  KSTM, NSTM, INIC, MAXT, VOLM, KSTP 

4, ZCD  ,ZC1  ,ZC2  ,ZC3  ,ZSQ  , ZSE  , ZSC  , HZSQ, HZSE, HZSC 

5,  DA(10, 60) 

C 

COMMON  /BCON/ 

1 DX(L+1)  ,DY(M+1)  ,DZ(N+1) 

2, CMR(L,M,N) ,NIN  , IIN(100. 7) ,UIN(100) ,NOBS, IOB(100,  6) 
3,NSOR, ISOR<100,6) ,SOR(100) 

C 

COMMON 

2 U(L,M,  N)  , V<L,M,  N)  , W(L,M,N)  , UU(L,M,N)  , VV(L.M,  N)  . W 
W(L,M.N) 

3,  P (L,M,N) ,D(L,M,N) ,S (L,M, N) , AFX(L,M, N) , DFX(L,M.N) 

5, Q(L,M,N)  ,E(L.M,  N)  ,C(L,M.N) 

6,  SX(L.M,N)  , SY(L,M,  N)  , SZ  (L,M,  N)  , BE(L,M,N) 

7, XD  (L),YD  (M),ZD  (N) 

8, HX  (L),HY  (M),HZ  (N) 

9, XIP(L) , YIP(M) ,ZIP(N) 

C 

COMMON  /SCAL/  ICON (3) 

C 

DIMENSION  UY(L,M,N) ,UZ(L,M.N) ,V2<L,M,N) ,VX(L,M,N) , 
1WX{L,M,N) , WY (L,M,N) ,QQ(L,M,N) , EE(L,M,N),  CC(L.M,N). 
2XY (L, M, N) , YZ (L, M, N) , ZX(L,M, N) 

C 

EQUIVALENCE 

(AFX (1,1,1),UY(1,1,1),XY(1,1,1).VZ(1,1,1),YZ (1,1,1) 

1,  UZ (1,  1,  1 ) , ZX (1, 1,  1 ) ) 

C 

EQUIVALENCE 

(DFX(1,  1,1),VX(1,1,1),WY(1,1,1),WX(1,1,1)) 

C 

EQUIVALENCE  (UU ( 1 , 1 , 1 ) . QQ ( 1 , 1 , 1) ) 

C 

EQUIVALENCE  (W  ( 1 , 1 , 1 ) , EE  ( 1 , 1 , 1 ) ) 

C 

EQUIVALENCE  (WW(1,1,1).CC (1,1,1)) 

C 


C*****BCON  RESET 
C 

WRITE (6, 3000) 

WRITECIO, 3000) 

3000  FORMATdH  ,”  Starting  Solution  of  Navier  Stokes 
Equations", /) 

DO  1000  I-l, L 
DO  1000  J-1,M 
DO  1000  K-1,N 

U(I,J,K)  - U(I,J.K)  * SX(I,J,K) 

V(I,J,K)  -V(I,J,K)  * SY(I,J.K) 

W(I,J,K)  - W(I.J,K)  • SZ(I.J,K) 

1000  CONTINUE 
C 

CALL  BCONSUB 
WRITE (6, 3020) 

WRITE(10,3020) 

3020  FORMATdH  , "Set  Initial  Boundary  Conditions") 

IKSTP  - KSTP 
KSTP  - KSTP-1 
C 

IF  ( INIC  .EQ.  1 ) THEN 

IKSTP  - 1 

KSTP  - 0 

ENDIF 

NSTP  - 0 

KTIM  - 0 


QAVE  - 0.0 
EAVE  -0.0 
CAVE  -0.0 
DAVE  - 0.0 
PAVE  - 0.0 
ENAV  - 0.0 
DMAX  - 0.0 
C 

JTIMEl  - ISECNDd) 

WRITE (6, 3022)  JTIMEl 
WRITE (10, 3022)  JTIMEl 

3022  FORMATdH  ."Initial  Time  is  ",I15,"  seconds") 
C 

C*****WORK  VECTOR  INITIALIZATION 
C 

DO  1010  I-1,L 
DO  1010  J-1,M 
DO  1010  K-1,N 
DFXd,  J,K)  - 0.0 
AFXd,  J,K)  - 0.0 
S(I,J,K)  - 0.0 
1010  CONTINUE 
C 

C*****DO  LOOP  RETURN 
WRITE(6,3021) 

WRITEdO,  3021) 

3021  FORMATdH  ."Starting  Solution  Loop") 

C 

200  CONTINUE 
C 

KSTP  - KSTP  + 1 


C 

^•-•••TERMINATION  CRITERIA 
C 

IF  ( (KSTP.  GT.  KSTM)  .OR.  (KTIM . GT  . MAXT)  ) GO  TO  2000 
203  CONTINUE 


C 

DO  1020  I-l,  L 
DO  1020  J-1,M 
DO  1020  K-1,N 
Sd.J.K)  - 0.0 
1020  CONTINUE 
C 

C**^^*SET  S 

DO  10  K-2,N-1 
DO  10  J-2,M-1 
DO  10  1-2, L-1 
C 

UX  - ( U(I, J,K)  - 
VY  - ( Vd,  J,K)  - 
WZ  - ( Wd,J,K)  - 

c 

S (I.J.K)  - 2.0  * 
10  CONTINUE 

^•••••CALCULATION  OF  XY 
C 

DO  1030  1-1, L 
DO  1030  J-1,M 
DO  1030  K-1,N 
DFXd,  J,K)  - 0.0 
AFXd,  J.K)  - 0.0 
1030  CONTINUE 


Ud-l,  J.K)  ) * HXd) 
V(I,J-1,K)  ) * HY(J) 
Wd,J,K-l)  ) * H2(K) 

( UX»*2  + VY**2  + WZ 


•2  ) 


DO  15  K-1,N-1 
DO  15  J-l.M-1 
DO  15  I-1,L-1 
C 

UY(I,J,K)  - ( U(I,J+1,K)  - U(I,J.K)  ) * YD(J) 
VX(I,J,K)  - ( Vd  + 1,J,K)  - Vd.J.K)  ) * XDd) 
C 

15  CONTINUE 
C 

DO  1040  1-1, L 
DO  1040  J-1,M 
DO  1040  K-1,N 

XYd.J.K)  - UY(I,J,K)  + VX(I,J,K) 

1040  CONTINUE 


C 

C* 

C 


c 

c 


•ADD  XY  TO  S 

DO  20  K-2,N-1 
DO  20  J-2,M-1 
DO  20  1-2, L-1 


S (I.J.K)  - Sd.J.K) 

1 + ( XYd,  J,K)+Xy(I-l.  J,K)+XY(I,  J-1,K)+XY(I-1,J-1,K) 
) **2  / 16.0 

20  CONTINUE 
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c 

C«*»*»CALCULATION  OF  YZ, 

C 

DO  2S  K-l.N-1 
DO  25 

DO  25  I-l, L-1 
C 

VZ(I,J,K)  - ( V{I.J,K+1)  - V(I,J,K)  ) • ZD(K) 
WY(I,J,K)  - ( W(I,J+1,K)  - W(I,J,K)  ) • YD(J) 

C 

25  CONTIKUE 
C 

DO  1050  I-1,L 
DO  1050  J-1,M 
DO  1050  K-1,N 

YZ(I,J,K)  - VZ{I,J,K)  + WY{I,J,K) 

1050  CONTimre 

c 

C*****aDD  YZ  TO  S 

c 

DO  26  K-2,N-1 
DO  26  J-2,M-1 
DO  26  1-2, L-1 
C 

S (I,J,K)  - S(I,J,K) 

2 + ( YZ (I,  J, K) +YZ (I, J-1. K) +YZ {I , J, K-1 ) +YZ (I, J-1, K-1) 
) **2  / 16.0 

C 

26  CONTINUE 
C 

C*****CALCULATION  OF  ZX 
C 

DO  27  K-1,N-1 
DO  27  J-1,M-1 
DO  27  I-l, L-1 
C 

UZ(I,J,K)  - ( U(I,J.K+1)  - U(I,J,K)  ) * 2D<K) 
WXd.J.K)  - ( W(I  + 1,J,K)  - W(I,J,K)  ) * XD(I) 

C 

27  CONTINUE 
C 

DO  1060  I-1,L 
DO  1060  J-1,M 
DO  1060  K-1,N 

ZX(I,J,K)  - WX(I,J,K)  + UZ(I,J,K) 

1060  CONTINUE 
C 

C»***»ADD  ZX  TO  S 
C 

DO  28  K-2,N-1 
DO  28  J-2,M-1 
DO  28  1-2, L-1 
C 

S (I,J,K)  - S(I,J,K) 

3 + ( ZXd,  J,K)+ZX(I,  J,K-1)+ZX(I-1,  J,K)+ZX(I-1,  J,K-1) 
) **2  / 16.0 

C 

28  CONTINUE 
C 

IF (KSTP.EQ. 1)  WRITE (6. 3001) 

IF(KSTP.EQ.l)  WRITE (10, 3001) 

3001  FORMAT  (IH  , ’’The  matrix  S is  formed  ") 

C 

C*»*-*SET  D 
C 

DO  1070  I-1,L 
DO  1070  J-1,M 
DO  1070  K-1,N 
IF(Ed,  J,K)  .LE.0.0)  THEN 
Dd,J,K)  - 0.0 
C 

ELSE 

Dd,J,K)  - ZCD*Qd,  J,K)  *Qd,  J,K) /Ed,  J,K) 

C 

END  IF 

1070  CONTINUE 

IF (KSTP .EQ. 1)  WRITE (6, 3002) 

IF(KSTP.EQ.l)  WRITE (10, 3002) 

3002  FORMATdH  , "The  diffusivity  has  been  calulated") 

C 

C*****SCALAR  VARIABLE  UPDATE* ******•*•*•**•**•*•*•**••* • 

C 

DO  1080  I-1,L 
DO  1080  J-1,M 
DO  1080  K-1,N 
QQd,  J,  K)  - 0.0 
EEd,  J,K)  - 0.0 
CCd,  J,K)  - 0.0 
1080  CONTINUE 
C 

CALL  SOLVEX 

IF(KSTP.EQ.l)  WRITE(6,3003) 

IF (KSTP .EQ. 1)  WRITE (10, 3003) 

3003  FORMATdH  ."Finished  Scalar  X Fluxes") 

CALL  SOLVEY 

IF(KSTP.EQ.l)  WRITE (6, 3004) 

IF (KSTP .EQ. 1)  WRITE (10. 3004) 

3004  FORMATdH  ."Finished  Scalar  Y Fluxes") 


CALL  SOLVEZ 

IF(KSTP.EQ.l)  WRITE (6, 3005) 

IF (KSTP.EQ. 1)  WRITE (10, 3005) 

3005  FORMATdH  ."Finished  Scalar  Z Fluxes") 
C 

DO  1090  I-l, L 
DO  1090  J-1,M 
DO  1090  K-1,N 
DFXd,  J.K)  - 0.0 
1090  CONTINUE 
C 


•DETERMINE  UPDATE  OF  Q,E,C 

DO  55  K-3.N-1 
DO  55  J-3.M-1 
DO  55  1-3, L-1 

•CALCULATION  OF  TEMPERATURE  DIFFERENCE 
( ( Cd,  J,K)-Cd-1,  J.K)  ) 
( Cd  + 1,  J,K)-C(I.  J.K)  ) 


DFXd,  J.K) 

SXd-l,  J.K) 

1 

SXd  ,J,K) 

2 ) * 2.0  / ( SXd-l.J.K) 

SXd,  J.K)  + 1.0  ) 

c 

55  CONTINUE 
C 

C*****CALCULATION  OF  DQDT  & DEDT 
C 

DO  1100  1-3, L-1 
DO  1100  J-3,M-1 
DO  1100  K-3.N-1 
IF(Q(I,J,K) .GT.0.0)  THEN 
C 

QQd. J.K)  - QQd. J.K) 


+ D (I, J.K)  • S (I, J.K) 

- E (I. J.K) 

+ D (I,  J.K)  • DFXd,  J.K) 


EEd,  J.K)  - EEd,  J.K) 


1 + 
2 

3 

ZC3 

4 
C 

END  IF 

1100  CONTINUE 


( D (I,J,K)  • S (I.J.K) 

- E (I,J,K)  * 2C2 
+ D (I,  J.K)  • DFXd.  J.K) 

) * E (I.J.K)  / Q (I.J.K) 


• XDd-l)  • 

• XDd  ) • 
I-  1.0  ) / ( 


AR  * HZSC 


ZCl 

AR  * HZSC  * 


C 

C THERMAL  SOURCE  TERMS 
C 

IF(NSOR.NE.O)  THEN 
DO  1300  III  - l.NSOR 

11  - ISORdll,  1) 

12  - ISORdll. 2) 

J1  - ISORdll, 3) 

J2  - ISORdll,  4) 

K1  - ISOR (III, 5) 

K2  - ISOR  (HI.  6) 

DO  1300  I-Il, 12 
DO  1300  J-J1,J2 
DO  1300  K-K1.K2 

CCd, J.K)  - CCd, J.K)  + SORdll) 
1300  CONTINUE 
END  IF 


IF (KSTP .EQ. 1)  WRITE (6. 3006) 

IF(KSTP.EQ.l)  WRITE (10, 3006) 

3006  FORMAT(lH  , "Chec)cing  Obstacles") 

C****  OBSTACTLES  CHECKED 

C 

IF(NOBS.NE.O)  THEN 
DO  300  III-l.NOBS 

11  - lOBdll.l) 

12  - IOB(III,2) 

J1  - IOB(III,3) 

J2  - lOBdll,  4) 

K1  - IOBdII,5) 

K2  - lOBdll,  6) 

DO  300  I-Il, 12 
DO  300  J-J1.J2 
DO  300  K-K1.K2 
CCd,  J.K)  - 0.0 
QQd,  J.K)  - 0.0 
EEd,  J.K)  - 0.0 

300  CONTINUE 
END  IF 
C 

C RESTRAINTED  BOUNDARY  CONDITIONS  CHECKED 
C 

IF (KSTP.EQ. 1)  WRITE (6, 3007) 

IF(KSTP.EQ.l)  WRITE (10. 3007) 

3007  FORMATdH  , "Checicing  Boundary  Conditions") 
IF(NIN.NE.O)  THEN 

DO  310  III-1,NIN 

11  - IIN(III,2) 

12  - IIN(III,3) 
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J1  - IIN(III,4) 

J2  - IINdll,  5) 

K1  - riNdll,  6) 

K2  - IIN (III, 7) 

IF  (IINdll,  1)  .EQ.IO)  THEN 
DO  320  J-J1,J2 
DO  320  K-Kl, K2 
EEdl,J,K)  - 0.0 

320  CONTINUE 
END  IF 

IFdINdll,!)  .EQ.ll)  THEN 
DO  321  1-11,12 
DO  321  K-K1,K2 
EEd,Jl,K)  - 0.0 

321  CONTINUE 
END  IF 

IF  dINdll,!)  .EQ.12)  THEN 
DO  322  1-11,12 
DO  322  J-J1.J2 
EE (I, J, Kl)  -0.0 

322  CONTINUE 
END  IF 

310  CONTINUE 
END  IF 
C 

C*****sAVE  TEMPERATURE  IN  S FOR  BOUYANCY  FORCE 
C 

DO  1110  I-1,L 
DO  1110  J-1,M 
DO  1110  K-1,N 


DO  1140  K-1,N 

UUd,  J,K)-UUd,  J,K)  *SXd,  J,K) 
Wd,  J,  K)  -Wd,  J,  K)  ‘SY  (I,  J,  K) 
WWd,  J,  K)  -WWd,  J,  K)  ‘SZ  (I,  J,  K) 


C 

IF(BEd,  J.K)  .EQ.0.0) 
C 

UUd,  J,K)  - 0.0 
Wd,J,K)  - 0.0 
WWd,  J,K)  - 0.0 
C 

END  IF 
C 

C UPDATE  U,  V 4 W 
C 


U d,J,K) 
V d,J,K) 
W d,J,K) 
1140  CONTINUE 


Ud,  J,K) 
Vd,  J,K) 
Wd,  J,K) 


C 


THEN 


+ DT 
+ DT 
+ DT 


UUd,  J,K) 
Wd,  J,K) 
WWd,  J.K) 


IF{KSTP.EQ.l)  WRITE (6, 3013) 
IF(KSTP.EQ.l)  WRITE (10, 3013) 

3013  FORMATdH  ."Velocities  updated") 
C».*«*presSURE  RELAXATION* **•***••*•* • 
C 

NSTP  - 0 


C 

82  CONTINUE 
C 


Sd.J,K)  - Cd,J.K) 

1110  CONTINUE 
C 

C*****UPDATE  OF  Q,E,C 
C 

DO  1120  I-l.L 
DO  1120  J-1,M 
DO  1120  K-1,N 

Qd.J,K)  - Qd,J,K)  + DT  * QQd,J,K) 
Ed, J.K)  - Ed, J.K)  + DT  * EEd.J.K) 
Cd,J,K)  - C(I,J,K)  + DT  * CC(I,J,K) 
1120  CONTINUE 
C 

IF(KSTP.EQ. 1)  WRITE(6, 3008) 
IF(KSTP.EQ.l)  WRITE(10,3008) 

3008  FORMATdH  ."Updated  Q,  E 4 C") 
C*****CHECK  FOR  POSITIVE  VALUES  OF  Q 4 E 
C 


NSTP  - NSTP  + 1 
DMAX  - 0.0 
C 

^•••••CALCULATION  OF  DIVERGENCE 
C 

DO  85  K-3,N-1 
DO  85  J-3.M-1 
DO  85  1-3, L-1 
C 

S (I,J,K)  - ( Ud,J,K)  - Ud-1,J.K)  ) * HXd) 

1 + ( Vd.J.K)  - Vd,J-l,K)  ) * HY{J) 

2 + ( Wd.J.K)  - Wd,J,K-l)  ) * HZ{K) 

C 

C^*s*^cORRECTION  OF  U,V  4 P 
C 

DP  - BEd,  J.K)  * S (I.  J.K) 

P (I,  J,  K)  - P (I,  J,  K)  + DP 
C 


DO  1130  I-l, L 
DO  1130  J-l.M 
DO  1130  K-l.N 

IF(Qd,  J.K)  .LE.0.0)  THEN 
Qd.J.K)  - 0.0 
Ed, J.K)  - 0.0 
END  IF 
C 

IF(Ed.  J.K)  .LE.0.0)  THEN 
Qd.J.K)  - 0.0 
Ed.  J.K)  - 0.0 
END  IF 

1130  CONTINUE 
C 

C CALCULATE  AVERAGE  CHANGES  OF  Q,  E,  4 C 
C 

QAVE  - 0.0 
EAVE  -0.0 
CAVE  -0.0 
C 

DO  110  K-3,N-1 
DO  110  J-3,M-1 
DO  110  1-3, L-1 
QAVE  - QAVE  + QQ(I.J.K)**2 
EAVE  - EAVE  + EEd,J,K)**2 
CAVE  - CAVE  + CCd,J,K)**2 
C 

110  CONTINUE 
C 

C SOLVE  MOMENTUM  EQUATIONS 

IF(KSTP.EQ.l)  WRITE (6, 3009) 

IF (KSTP .EQ. 1 ) WRITE (10. 3009) 

3009  FORMATdH  ."Averages  of  Q,  E 4 C calculated") 
C 

CALL  MOMENTX 

IF (KSTP. EQ. 1)  WRITE (6. 3010) 

IF(KSTP.EQ.l)  WRITE (10, 3010) 

3010  FORMAT (IH  ."Momentum  in  X direction  solved") 
CALL  MOMENTY 

IF(KSTP.EQ.l)  WRITE (6. 3011) 

IF (KSTP.EQ. 1)  WRITE (10. 3011) 

3011  FORMATdH  ."Momentum  in  Y direction  solved”) 
CALL  MOMENTZ 

IF (KSTP .EQ. 1)  WRITE (6. 3012) 

IF(KSTP.EQ.l)  WRITE (10, 3012) 

3012  FORMATdH  ."Momentum  in  Z direction  solved") 

C 

DO  1140  I-l.L 
DO  1140  J-l.M 


U (I  ,J,K)  - 

, J.  K) 

U 

d 

,J,K)  + 

DT 

* DP 

* XD  (1 

) * SXd 

U (1-1, J.K) 
SXd-1,  J.K) 

u 

d-1,  J,  K) 

DT  • 

DP 

* 

XD  (1-1) 

* 

V (I.  J.K) 
SYd,  J.K) 

• 

V 

d-  J.K) 

+ 

DT  * 

DP 

* 

YD(J  ) 

* 

V d.J-l,K) 
SYd.  J-l.K) 

• 

V 

(I.  J-1, K) 

DT  * 

DP 

* 

YD { J-1 ) 

* 

W d,J,K  ) 
SZ (I. J. K ) 

• 

w 

d.J.K  ) 

+ 

DT  * 

DP 

* 

ZD  (K  ) 

W d,J,K-l) 

- 

w 

(I, J,K-1) 

- 

DT  • 

DP 

* 

ZD (K-1) 

* 

SZ (I, J,K-1) 

C 

85  CONTINUE 
C 

DO  1150  1-1, L 
DO  1150  J-l.M 
DO  1150  K-1,N 

IF(BEd,  J.K)  .EQ.0.0)  Sd,  J.K) -0.0 
1150  CONTINUE 
C 

C*^^^^DETERMINE  MAXIMUM  DIVERGENCE 
C 

DO  88  K-3.N-1 
DO  88  J-3,M-1 
DO  88  1-3, L-1 
C 

IF(  ABS(Sd,  J.K)  ) .GT. DMAX  ) DMAX  - ABS  ( S(I,J.K)  ) 
C 

88  CONTINUE 
C 

C^ ••••CHECK  FOR  CONVERGENCE  OR  MAX  ITERATIONS  OF  PRESSURE 

RELAXATION 

C 

C*****DIVERGENCE  TORELANCE  LIMIT 
C 

IF  ( DMAX  .LE.  EPS  ) GO  TO  90 
C 

IF  ( NSTP  .LE.  NSTM  ) GO  TO  82 
C 

90  CONTINUE 
C 

C*****SET  BOUNDARY  CONDITION 
C 

CALL  BCONSUB 
C 

C*****CALCULATE  AVERAGE  CHANGES 
C 

DAVE  -0.0 
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PAVE  -0.0 
ENAV  -0.0 


DO  100  K-3,N-1 
DO  100  J-3,M-1 
DO  100  1-3, L-1 

DAVE  - DAVE  + UU(I,J,K)‘ 


(I,J,K)**2*.5 
PAVE  - PAVE 
ENAV  - ENAV 

1 

2 

125 


.5  + VV(I, J,K)' 


(I, J,K) 

( U(I-1,J,K) 
( V(I,J-1,K) 
( W(I,J,K-1) 


100  CONTINUE 


QAVE 

EAVE 

CAVE 

DAVE 

QAVE 

EAVE 

CAVE 

DAVE 

PAVE 

ENAV 


QAVE 

EAVE 

CAVE 

DAVE 

SQRT( 

SQRT( 

SQRT( 

SQRT  ( 

PAVE 

ENAV 


' VOLM 
' VOLM 
' VOLM 
■ VOLM 
QAVE  * 
EAVE  * 
CAVE  * 
DAVE  * 
' VOLM 
' VOLM 


VOLM  ) 
VOLM  ) 
VOLM  ) 
VOLM  ) 


• U(I,J,K) 

• V{I,J,K) 
W(I, J,K) 


' 2 
' 2 
2 ) 


IF  ( KSTP.EQ.l  .OR.  MOD(KSTP,20)  .EQ.  0 ) WRITE(6,205) 
IF  ( KSTP.EQ. IKSTP  .OR.  KSTP  .EQ.  (IKSTP  + 20)  .OR. 
1MOD(KSTP,200)  .EQ.  0 ) WRITE < 10 , 205 ) 

IF  (MOD (KSTP, 100)  .EQ.  0)  THEN 

OPEN  (21,FILE-'UNIT21* , FORM-' UNFORMATTED' ) 

WRITE (21)  U, V, W, P, Q, E, C, DX, DY, DZ, KSTP 
CLOSE(21) 

END  IF 


C 

C 

205  FORMATdH  / ' . KSTP  . NSTP  . KTIM' 

1 QAVE EAVE CAVE' 

2 , ' DAVE PAVE ENAV DMAX'  ) 

C 

KTIM  - ISECND(1)-JTIME1 

WRITE (6, 206)  KSTP , NSTP . KTIM, QAVE , EAVE, CAVE, DA- 
VE, PAVE,  ENAV, DMAX 

IF(KSTP  .LE.  (IKSTP  19)  .OR.  MOD(KSTP,10)  . EQ . 0) 

THEN 

WRITE (10, 206)  KSTP, NSTP, KTIM, QAVE, EAVE, CAVE, DA- 
VE, PAVE, ENAV, DMAX 
ENDIF 

206  FORMAT (15, 13 , 16, F9 . 5 , FI 1 . 5 , 5F9. 5) 

IF  ( ENAV  .GT.  ENMX  ) GO  TO  2000 

C 

GO  TO  200 


C 

2000  CONTINUE 
C 

RETURN 

END 


SUBROUTINE  SOLVEX 
C 

PARAMETER  (L-29, M-27, N-20) 

C 

C IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C INTEGER  SX,SY,SZ 

COMMON  /CONTR/ 

1 TITLE(20) 

2,  RE  ,HRE  , PE  , HPE  ,PR  , AR  , BETA, EPS  , DT  , ENMX 

3,  KSTM, NSTM, INIC, MAXT. VOLM, KSTP 

4,2CD  , ZCl  ,ZC2  ,2C3  . ZSQ  . ZSE  ,2SC  , HZSQ, HZSE, HZSC 
5,DA(10, 60) 

C 

COMMON  /BCON/ 

1 DX(L+1)  ,DY(M+1)  ,DZ(N+1) 

2, CMR (L, M, N) , NIN  , I IN (100, 7) , UIN(IOO) , NOBS, IOB( 100, 6) 
3, NSOR, ISOR (100, 6) , SOR(IOO) 

C 


COMMON 

2 U(L,M.  N)  , V(L,M,N)  , W(L,M,  N)  ,UU(L,M,N)  , VV(L,M,  N)  , W 
W(L,M,N) 

3,P (L.M, N) , D (L,M, N) , S (L,M, N) , AFX(L,M, N) , DFX(L,M, N) 
5,Q(L,M,N)  ,E(L.M,N)  ,C(L,M,N) 

6,SX(L,M,N)  ,SY(L,M,N)  ,SZ(L,M,N)  ,BE(L,M,N) 

7, XD  (L),YD  (M),ZD  (N) 

8, HX  (L),HY  (M),HZ  (N) 

9,  XIP  (L)  , YIP  (M)  , ZIP  (N) 


C 

c 

c 

c 

c 


DIMENSION  QQ(L.M,N), 
EQUIVALENCE  (UU(1, 1, 
EQUIVALENCE  ( W ( 1 , 1 , 
EQUIVALENCE  (WW(1,1, 


EE(L,M.N) 
1) .QQ(1, 1 
1) ,EE(1, 1 
1) ,CC(1, 1 


CC(L,M,N) 

1)  ) 

1)  ) 

1)  ) 


C*****SCALAR  VARIABLE  UPDATE*  ********'***••********•**  * 
DO  1000  I-1,L 
DO  1000  J-1,M 
DO  1000  K-1,N 
AFX(I, J,K)  - 0.0 
DFXd,  J,K)  - 0.0 
1000  CONTINUE 
C 

C*****EDDY  DIFFUSIV-ITY  INTERPOLATION 
C 

DO  40  K-2,N-1 
DO  40  J-2,M-1 
DO  40  1-2, L-1 
C 

DFX(I,J,K)  - D<I,J,K)  • XIP(I)  + D(I+1,J,K)  * ( 

l.O-XIPd)  ) 

C 

40  CONTINUE 
C 

C*****CALCULATION  OF  QQ 
C 

DO  45  K-1, N 
DO  45  J-1,M 
DO  45  I-1,L 
C 

AFX(I,J,K)  - ( DFX(I,J,K)  * HZSQ  + HRE  ) * XD ( I) 

C 

45  CONTINUE 
C 

DO  1010  I-1,L 
DO  1010  J-1,M 
DO  1010  K-1,N 

AFX(I,J,K)  - AFXd,J,K)  - 0.5  • U(I,J,K) 

C 

IF(AFX(I,  J,K)  .LE.  (-U(I,  J,K)  ) ) AFXd,  J,  K)  - -U(I,J,K) 
C 

IF(AFX(I, J,K) .LE.0.0)  AFX ( I, J, K) -0 . 0 
1010  CONTINUE 
C 

Ct***. CALCULATION  OF  CONVECTION-DIFFUSION  FLUX 
C 

DO  50  K-2,N-1 
DO  50  J-2,M-1 
DO  50  1-2, L-1 
C 

AFX(I,J,K)  - AFX(I,J,K)  • ( Qd,J,K)  - Q(I  + 1,J,K) 

) 

C 

50  CONTINUE 
C 

DO  1020  I-1,L 
DO  1020  J-1,M 
DO  1020  K-1,N 

AFX(I.J,K)  - AFXd,  J,K)+Q(I,  J,K)  *U(I,  J,K) 

1020  CONTINUE 
C 
C 

C*****SET  QQ 
C 

DO  55  K-3,N-1 
DO  55  J-3,M-1 
DO  55  1-3, L-1 

QQ(I,J,K)  - QQ(I,J,K)  •!-(  AFX(I-1,J,K)  - AFXd,J,K) 
) * HXd) 

55  CONTINUE 
C 

DO  1030  I-1,L 
DO  1030  J-1,M 
DO  1030  K-1,N 
AFX(I,J,K)  - 0.0 
1030  CONTINUE 
C 

C*****  CALCULATE  EE 
C 

DO  145  K-1,N 
DO  145  J-l.M 
DO  145  I-1,L 
C 

AFX(I,J,K)  - ( DFX(I,J,K)  • HZSE  + HRE  ) * XD ( I ) 

C 

145  CONTINUE 
C 

DO  1040  I-1,L 
DO  1040  J-1,M 
DO  1040  K-1,N 

AFX(I,J,K)  - AFX(I,J,K)  - 0.5  * U(I,J,K) 

C 

IF(AFX(I,  J,K)  .LE.  (-U(I,  J,K)  ) ) AFXd,  J,K)  - -U(I,J,K) 
C 

IF(AFX(I, J,K) .LE.0.0)  AFX ( I , J, K) -0 . 0 
1040  CONTINUE 
C 

C*****CALCULATION  OF  CONVECTION-DIFFUSION  FLUX 
C 

DO  150  K-2,N-1 
DO  150  J-2,M-1 
DO  150  1-2, L-1 
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c 

AFX(I,J,K)  - AFX(I,J,K)  * ( E(I,J,K)  - E<I+1,J,K) 

) 

C 

150  CONTINUE 
C 

DO  1050  I-l, L 
DO  1050  J-1,M 
DO  1050  K-1,N 

AFX(I,J,K)  - AFX(I, J,K)+E(I,J,K)*U(I,J,K) 

1050  CONTINUE 
C 

C*****SET  EE 
C 

DO  155  K-3,N-1 
DO  155  J-3,M-1 
DO  155  1-3, L-1 
C 

EE(I,J,K)  - EE(I,J,K)  + ( AFX(I-1,J,K)  - AFX(I,J,K) 
) • HX(I) 

C 

155  CONTINUE 
C 

C CALCULATION  OF  CC 
C 

DO  245  K-1,N 
DO  245  J-1,M 
DO  245  I-l, L 
C 

AFX(I,J,K)  - ( DFX(I,J,K)  * H2SC  + HPE  ) * XD  < I ) 

C 

245  CONTINUE 
C 

DO  1060  I-1,L 
DO  1060  J-1,M 
DO  1060  K-1,N 

AFX(I,J,K)  - AFX(I,J,K)  - 0.5  * U(I,J,K) 

C 

IF(AFX(I, J,K) . LE. (-U<I, J, K) ) ) AFX(I,J,K)  - -U(I.J,K) 
C 

IF(AFX(I, J,K) .LE.0.0)  AFX ( I , J, K) -0 . 0 
1060  CONTINUE 
C 

C*****CALCULATION  OF  CONVECTION-DIFFUSION  FLUX 
C 

DO  250  K-2,N-1 
DO  250  J-2,M-1 
DO  250  1-2, L-1 
C 

AFX(I,J.K)  - AFX(I,J,K)  * ( C(I,J,K)  - C(I  + 1,J.K) 

) 

C 

250  CONTINUE 
C 

DO  1070  I-l, L 
DO  1070  J-1,M 
DO  1070  K-1,N 

AFX(I,J,K)  - AFXd,  J,  K) +C  (I.  J,  K) -U  (I,  J,  K) 

1070  CONTINUE 
C 

C«-**«SET  CC 

c 

DO  255  K-3,N-1 
DO  255  J-3,M-1 
DO  255  1-3, L-1 
C 

CC(I,J,K)  - CC(I,J,K)  + ( AFX(I-1,J,K)  - AFX(I,J,K) 
) * HX(I) 

C 

255  CONTINUE 
C 

RETURN 

END 


SUBROUTINE  SOLVEY 
C 

PARAMETER  ( L-29, M-27 , N-20 ) 

C 

C IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C INTEGER  SX,SY,SZ 

COMMON  /CONTR/ 

1 TITLE(20) 

2,  RE  ,HRE  ,PE  ,HPE  , PR  , AR  , BETA. EPS  , DT  , ENMX 

3,  KSTM. NSTM, INIC, MAXT, VOLM, KSTP 

4, ZCD  ,ZC1  ,ZC2  ,ZC3  , ZSQ  , ZSE  , ZSC  , HZSQ, HZSE , HZSC 

5,  DA(10, 60) 

C 

COMMON  /BCON/ 

1 DX(L+1)  ,DY(M+1)  .DZ(N+1) 

2.  CMR(L,M, N) . NIN  , IIN(100.  7) , UIN(IOO) , NOBS, IOB(100, 6) 
3,NSOR,  ISORdOO,  6)  .SORdOO) 

C 

COMMON 

2 U(L,M,  N)  ,V(L,M,N)  .W(L,M.N)  ,UU(L,M,N)  , W(L,M,N)  .W 
W(L,M.N) 

3.  P (L,M,N)  , D(L,M,  N)  , S (L,M,N)  , AFX(L.M.  N)  , DFX(L,M.  N) 
5,Q(L,M,N) ,E(L,M,N) ,C(L,M,N) 


6.  SX  (L,M,  N)  , SY  (L,  M,  N)  . SZ  (L,M,  N)  , BE  (L,  M,  N) 

7, XD  (L),YD  (M),ZD  (N) 

8, HX  (L),HY  (M).HZ  (N) 

9.  XIP (L) , YIP (M) , ZIP (N) 

C 

DIMENSION  QQ(L,M,N) . EE(L,M,N) ,CC (L,M, N) 

C 

EQUIVALENCE  (UU (1 , 1 . 1) , QQ (1 . 1 , 1 ) ) 

C 

EQUIVALENCE  (W  (1 , 1 . 1 ) . EE  ( 1 . 1 , 1 ) ) 

C 

EQUIVALENCE  (WW (1 , 1 . 1 ) , CC (1 , 1 , 1 ) ) 

C 

C*****INITIALIZE  FLUX  ARRAY******************** 

DO  1000  1-1, L 
DO  1000  J-1,M 
DO  1000  K-l, N 
AFXd,J,K)  - 0.0 
DFXd,J.K)  - 0.0 
1000  CONTINUE 
C 

C*****EDDY  DIFFUSIVITY  INTERPOLATION 
C 

DO  40  K-2,N-1 
DO  40  J-2,M-1 
DO  40  1-2, L-1 
C 

DFXd,J,K)  - Dd,J,K)  * YIP(J)  + Dd,J+l,K)  * ( 

l.O-YIP(J)  ) 

C 

40  CONTINUE 
C 

C**** ‘CALCULATION  OF  QQ 
C 

, DO  45  K-1,N 
DO  45  J-1,M 
DO  45  I-l, L 
C 

AFX<I,J,K)  - ( DFXd,J,K)  * HZSQ  + HRE  ) * YD(J) 

C 

45  CONTINUE 
C 

DO  1010  I-1,L 
DO  1010  J-1,M 
DO  1010  K-l.N 

AFXd,J,K)  - AFXd,J,K)  - 0.5  • Vd,J,K) 

C 

IF(AFXd.  J,K)  .LE.  (-Vd,  J,K)  ) ) AFXd,J,K)  = -Vd,J,K) 
C 

IF{AFXd,  J.K)  .LE.0.0)  AFX  d , J,  K) -0 . 0 
1010  CONTINUE 
C 

c**** ‘CALCULATION  OF  CONVECTION-DIFFUSION  FLUX 
C 

DO  50  K-2,N-1 
DO  50  J-2,M-1 
DO  50  1-2, L-1 
C 

AFXd.J.K)  - AFXd,J,K)  * ( Qd,J,K)  - Qd,J+l,K) 

) 

C 

50  CONTINUE 
C 

DO  1020  1-1, L 
DO  1020  J-1,M 
DO  1020  K-l.N 

AFXd.J.K)  - AFX  (I,  J,  K) +Qd,  J,  K)  *Vd,  J,  K) 

1020  CONTINUE 
C 

c 

C***“SET  QQ 
C 

DO  55  K-3,N-1 
DO  55  J-3,M-1 
DO  55  1-3, L-1 

QQd.J.K)  - QQd.J.K)  +(  AFXd,J-l.K)  - AFXd.J.K) 
) * HY(J) 

55  CONTINUE 
C 

DO  1030  I-l,  L 
DO  1030  J-1,M 
DO  1030  K-l.N 
AFXd.J.K)  - 0.0 
1030  CONTINUE 
C 

C*****  CALCULATE  EE 
C 

DO  145  K-1,N 
DO  145  J-1,M 
DO  145  I-l,  L 
C 

AFXd.J.K)  - ( DFXd.J.K)  * HZSE  + HRE  ) * YD(J) 

C 

145  CONTINUE 
C 

DO  1040  I-l,  L 
DO  1040  J-l.M 
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DO  1040  K-1,N 

AFX(I,J,K)  - AFX(I,J,K)  - 0.5  • V(I,J,K) 

C 

IF(AFX  (I,  J.K)  .LE.  {-V(I,  J,K)  ) ) AFXd,  J,  K)  - -V(I,J,K) 
C 

IF(AFX(I, J,K) .LE.0.0)  AFX ( I , J, K) -0 . 0 
1040  CONTINUE 
C 

C**** ‘CALCULATION  OF  CONVECTION-DIFFUSION  FLUX 
C 

DO  150  K-2,N-1 
DO  150  J-2.M-1 
DO  150  1-2, L-1 
C 

AFX{I,J,K)  - AFX(I,J,K)  * ( E(I,J.K)  - E(I,J+1,K) 

) 

C 

150  CONTINUE 
C 

DO  1050  I-1,L 
DO  1050  J-1,M 
DO  1050  K-l.N 

AFX(I,J,K)  - AFXd,  J.K)+E(I,  J,K)  *V(I,  J,K) 

1050  CONTINUE 
C 

C*****SET  EE 
C 

DO  155  K-3,N-1 
DO  155  J-3,M-1 
DO  155  1-3, L-1 
C 

EEd,J,K)  - EEd,J,K)  + ( AFXd.J-l,K)  - AFXd,J,K) 
) * HY{J) 

C 

155  CONTINUE 
C 

C CALCULATION  OF  CC 
C 

DO  245  K-1,N 
DO  245  J-1,M 
DO  245  I-1,L 
C 

AFXd,J,K)  - ( DFXd,J,K)  ‘ HZSC  + HPE  ) ‘ YD(J) 

C 

245  CONTINUE 
C 

DO  1060  I-1,L 
DO  1060  J-1,M 
DO  1060  K-1,N 

AFXd,J,K)  - AFXd,J,K)  - 0.5  * Vd,J,K) 

C 

IF(AFXd.J,K)  .LE.  (-Vd.  J,K)))  AFXd,J,K)  - -Vd,J,K) 
C 

IF(AFXd,  J,K)  .LE.0.0)  AFX  (I , J,  K) -0 . 0 
1060  CONTINUE 
C 

C***“CALCULATION  OF  CONVECTION-DIFFUSION  FLUX 
C 

DO  250  K-2, N-1 
DO  250  J-2,M-1 
DO  250  1-2, L-1 
C 

AFXd,J,K)  - AFXd,J.K)  * ( Cd,J,K)  - Cd,J+l,K) 

) 

C 

250  CONTINUE 
C 

DO  1070  I-1,L 
DO  1070  J-l.M 
DO  1070  K-1,N 

AFXd,J,K)  - AFXd,  J,K)+Cd,  J,K) ‘Vd,  J,K) 

1070  CONTINUE 
C 

C*»**‘SET  CC 
C 

DO  255  K-3, N-1 
DO  255  J-3,M-1 
DO  255  1-3, L-1 
C 

CCd,J,K)  - CCd,J,K)  + ( AFXd,J-l,K)  - AFXd,J,K) 
) • HY(J) 

C 

255  CONTINUE 
C 

RETURN 

END 


SUBROUTINE  SOLVEZ 
C 

PARAMETER  (L-29. M-27, N-20) 

C 

C IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C INTEGER  SX.SY,SZ 

COMMON  /CONTR/ 

1 TITLE(20) 

2,  RE  ,HRE  ,PE  , HPE  , PR  , AR  . BETA, EPS  , DT  , ENMX 

3,  KSTM. NSTM, INIC, MAXT , VOLM, KSTP 


4, ZCD  ,ZC1  ,2C2  ,ZC3  , ZSQ  , ZSE  , ZSC  . HZSQ, HZSE, HZSC 

5. DAdO,  60) 

C 

COMMON  /BCON/ 

1 DX(L+1)  ,DY(M+1)  ,DZ(N+1) 

2,CMR (L,M, N) , NIN  . I IN (100,  7)  ,UIN(100) , NOBS, 108(100, 6) 
3,NSOR,  ISORdOO,  6)  , SOR(IOO) 

C 

COMMON 

2 U(L,M,N)  , V(L,M,N)  , W(L,M,N)  , UU(L,M,N)  , VV(L,M,  N)  , W 
W(L,M.  N) 

3,P (L,M, N) ,D(L,M, N) . S (L, M, N) , AFX (L, M, N) ,DFX(L,M, N) 
5,Q(L,M,N) ,E(L,M,N) .C(L,M,N) 

6,SX(L,M,N) . SY(L,M,N) ,SZ (L,M,N) , BE(L,M,N) 

7, XD  (L),YD  (M),2D  (N) 

8, HX  (L),HY  (M),HZ  (N) 

9, XIP (L) , YIP (M) ,ZIP (N) 

C 

DIMENSION  QQ(L,M,N) ,EE(L,M,N) ,CC(L,M, N) 

C 

EQUIVALENCE  (UU(1,1,1),QQ(1,1,1)) 

C 

EQUIVALENCE  (W  ( 1 , 1 , 1 ) , EE  ( 1 , 1 , 1 ) ) 

C 

EQUIVALENCE  (WW(1,1,1),CC (1,1,1)) 

C 

C*“**INITIALIZE  FLUX  ARRAY*  ***“*•••**“**““*  ‘ 

DO  1000  I-l,  L 
DO  1000  J-1,M 
DO  1000  K-1,N 
AFXd,  J,K)  - 0.0 
DFXd,  J,K)  - 0.0 
1000  CONTINUE 
C 

C*****EDDY  DIFFUSIVITY  INTERPOLATION 
C 

DO  40  K-2, N-1 
DO  40  J-2,M-1 
DO  40  1-2, L-1 
C 

DFX(I,J,K)  - D(I,J,K)  * ZIP(K)  + D(I,J,K+1)  * ( 

l.O-ZIP(K)  ) 

C 

40  CONTINUE 
C 

C*****CALCULATION  OF  QQ 
C 

DO  45  K-1,N 
DO  45  J-1,M 
DO  45  I-l, L 
C 

AFXd,J,K)  - ( DFX(I,J,K)  * HZSQ  + HRE  ) * 2D(K) 

C 

45  CONTINUE 
C 

DO  1010  I-1,L 
DO  1010  J-1,M 
DO  1010  K-l.N 

AFX(I,J,K)  - AFX(I,J,K)  - 0.5  * W(I.J,K) 

C 

IF(AFX(I, J,K) .LE. (-W(I, J,K) ) ) AFX(I,J,K)  - -W(I,J,K) 
C 

IF(AFX(I, J,K) .LE.0.0)  AFX ( I , J, K) =0 . 0 
1010  CONTINUE 
C 

C*****CALCULATION  OF  CONVECTION-DIFFUSION  FLUX 
C 

DO  50  K-2, N-1 
DO  50  J-2,M-1 
DO  50  1-2, L-1 
C 

AFXd.J.K)  - AFX(I,J,K)  * ( Q(I,J,K)  - Q(I,J,K+1) 

) 

C 

50  CONTINUE 
C 

DO  1020  1-1, L 
DO  1020  J-1,M 
DO  1020  K-1,N 

AFXd.J.K)  - AFXd,  J,  K) +Q(I,  J,  K) ‘Wd,  J,K) 

1020  CONTINUE 
C 
C 

C*****SET  QQ 
C 

DO  55  K-3, N-1 
DO  55  J-3,M-1 
DO  55  1-3, L-1 
C 

QQd.J.K)  - QQd.J.K)  +(  AFX(I,J,K-1)  - AFX(I,J,K) 
) * HZ(K) 
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55  CONTINUE 
C 

DO  1030  I-1,L 
DO  1030  J-1,M 
DO  1030  K-1,N 
AFX(I, J,K)  - 0.0 
1030  CONTINUE 
C 

C*****  CALCULATE  EE 
C 

DO  145  K-l.N 
DO  145  J-1,M 
DO  145  I-1,L 
C 

AFX(I,J,K)  - ( DFX(I,J,K)  * HZSE  + HRE  ) * ZD(K) 

C 

145  CONTINUE 
C 

DO  1040  I-1,L 
DO  1040  J-1,M 
DO  1040  K-1,N 

AFX(I,J,K)  - AFX(I,J.K)  - 0.5  * W(I,J,K) 

C 

IF (AFX (I, J, K) . LE. (-W(I. J, K) ) ) AFX(I, J, K)  - -W(I,J,K) 
C 

IF(AFX(I, J,K) .LE.0.0)  AFX ( I . J, K) -0 . 0 
1040  CONTINUE 
C 

C*. •••CALCULATION  OF  CONVECTION-DIFFUSION  FLUX 
C 

DO  150  K-2,N-1 
DO  150  J-2,M-1 
DO  150  1-2, L-1 
C 

AFX(I,J,K)  - AFX(I,J,K)  * ( E(I,J,K)  - E(I,J,K+1) 

) 

C 

150  CONTINXrt: 

C 

DO  1050  I-1,L 
DO  1050  J-1,M 
DO  1050  K-1,N 

AFX(I,J,K)  - AFX(I, J,K)+E(I, J,K) *W(I, J,K) 

1050  CONTINUE 
C 

^•••••SET  EE 
C 

DO  155  K-3,N-1 
DO  155  J-3,M-1 
DO  155  1-3, L-1 
C 

EE(I,J,K)  - EE(I,J.K)  + ( AFX(I,J,K-1)  - AFX(I,J,K) 
) • HZ(K) 

C 

155  CONTINUE 
C 

C CALCULATION  OF  CC 
C 

DO  245  K-l.N 
DO  245  J-1,M 
DO  245  I-l, L 
C 

AFX(I,J,K)  - ( DFX(I,J,K)  * HZSC  + HPE  ) • ZD(K) 

C 

245  CONTINUE 
C 

DO  1060  I-1,L 
DO  1060  J-1,M 
DO  1060  K-1,N 

AFX(I,J,K)  - AFX(I,J,K)  - 0.5  • W(I,J,K) 

C 

IF(AFX(I, J,K) .LE. (-W(I, J.K) ) ) AFX(I.J,K)  - -W(I,J,K) 
C 

IF(AFX(I, J,K) .LE.0.0)  AFX { I , J, K) -0 . 0 
1060  CONTINUE 
C 

•••CALCULATION  OF  CONVECTION-DIFFUSION  FLUX 
C 

DO  250  K-2,N-1 
DO  250  J-2,M-1 
DO  250  1-2, L-1 
C 

AFX(I,J,K)  - AFX(I,J,K)  * ( C(I,J,K)  - C(I,J,K+1) 

) 

C 

250  CONTINUE 
C 

DO  1070  I-l,  L 
DO  1070  J-1,M 
DO  1070  K-1,N 

AFX(I,J,K)  - AFX(I, J,K)+C(I, J,K) *W(I.  J,K) 

1070  CONTINUE 
C 

C*«^^*SET  CC 
C 


DO 

255 

K-3,N-1 

DO 

255 

J-3,M-1 

DO 

255 

1-3. L-1 

C 

CC(I,J,K)  - CC(I,J,K)  + ( AFX(I,J,K-1)  - AFX(I,J,K) 
) * HZ(K) 

C 

255  CONTINUE 
C 

RETURN 

END 


C 

SUBROUTINE  MOMENTX 
C 

PARAMETER  ( L-29, M-27 , N-20 ) 

C 

C IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C INTEGER  SX,SY,SZ 

COMMON  /CONTR/ 

1 TITLE(20) 

2,  RE  ,HRE  ,PE  , HPE  , PR  , AR  , BETA, EPS  , DT  , ENMX 

3,  KSTM, NSTM, INIC, MAXT, VOLM, KSTP 

4, ZCD  ,ZC1  ,ZC2  ,ZC3  , ZSQ  , ZSE  , ZSC  , HZSQ, HZSE, HZSC 

5,  DA (10, 60) 

C 

COMMON  /BCON/ 

1 DX(L+1)  ,DY(M+1)  ,DZ(N+1) 

2, CMR (L,M, N) , NIN  , IIN  (100, 7)  , UIN (100) , NOBS, lOB (100, 6) 
3,  NSOR,  ISORdOO,  6)  , SOR  (100) 

C 

COMMON 

2 U(L,M,N)  ,V(L,M,N)  ,W(L,M,N)  ,UU(L,M,N)  ,VV(L,M,N)  ,W 
W(L,M,N) 

3,P  (L,M,N)  .D(L,M,N)  , S (L,M,N)  , AFX(L,M,  N)  . DFX(L,M.  N) 
5,Q(L,M,N)  ,E(L,M,  N)  ,C(L,M.N) 

6,SX(L,M,N)  ,SY(L,M,N)  ,SZ(L,M,N)  ,BE(L,M,N) 

7, XD  (L),YD  (M),ZD  (N) 

8, HX  (L),HY  (M),HZ  (N) 

9,  XIP  (L)  , YIP  (M)  , ZIP  (N) 

C 

DIMENSION  AFY(L,M,N) , AFZ ( L. M. N) , XY ( L, M, N) , ZX ( L,  M, N) 
1,VU(L,M,N)  ,WU(L,M,N) 

C 

EQUIVALENCE  (AFX(1, 1,1) , AFY ( 1 , 1,1) ,AF2 (1,1,1)) 

C 

EQUIVALENCE  (DFX(1, 1,1),XY(1,1,1),ZX (1,1,1)) 

C 

EQUIVALENCE  (S(l,l,l),VU(l,l,l),SfU(l,l,l)) 

C 

C*.* ••momentum  VARIABLE  UPDATE* ******************* * 

C 

C*****INITIALIZATION  OF  WORK  ARRAYS  ON  X FACES 
C 

DO  1000  I-1,L 
DO  1000  J-1,M 
DO  1000  K-1,N 
UU(I,J,K)  - 0.0 
AFX(I, J,K)  - 0.0 
DFXd,  J,K)  - 0.0 
1000  CONTINUE 
C 

DO  60  K-2,N 
DO  60  J-2,M 
DO  60  1-2, L 
C 

UU(I,J,K)  - (U(I,J,K)  + U(I-1,J,K))  * 0.5 
C 

AFX(I,J,K)  - ( D(I,J,K)  + HRE  ) * HX ( I ) 

C 

60  CONTINUE 
C 

DO  1010  I-1,L 
DO  1010  J-1,M 
DO  1010  K-l.N 

AFXd,  J,K)-AFX(I,  J,K)-UU(I,  J.K)  /CMR  (I,  J.K) 

C 

IF (AFX (I, J.K) .LE. (-2.0*UU(I. J.K) /CMR (I, J.K) ) ) 

1 AFXd, J.K)  - -2 . 0*UU  (I,  J,  K) /CMR  (I,  J,  K) 

C 

IF(AFX(I, J.K) .LE.0.0)  AFX(I.J,K)  - 0.0 
1010  CONTINUE 
C 

DO  65  K-2,N 
DO  65  J-2.M 
DO  65  1-2, L 
C 

DU  - U(I-1,J.K)  - Ud.J.K) 

GRADU  - -DU*HX(I) 

AFXd.  J,  K)-UU(I,  J,  K)  * (UU(I,  J.K)  +DU/CMR(I,  J,  K)  ) + 

AFXd,  J.K)  ‘DU 

2 - GRADU* ( HRE  + D(I,J.K)) 

C 

65  CONTINUE 
C 

DO  1020  I-l, L 
DO  1020  J-1,M 
DO  1020  K«1,N 
UU(I,J,K)  - 0.0 
1020  CONTINUE 
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0.0 


c 

DO  66  K-2,N-1 
DO  66 

DO  66  1-2, L-1 

DU  - (AFX(I,J,K)  - AFX(I+1, J,K) ) • XD(I) 

1 -AR  * (S(I,J,K)  • XIP(I)  + S(I+1,J,K)  * (1.0 

- XIP(I))) 

UU(I,J,K)  - DU  +(P(I,J,K)  - P (I+l, J,K) ) *XD(I) 

66  CONTINUE 
C 

DO  1030  I-1,L 
DO  1030  J-1,M 
DO  1030  K-1,N 
AFX(I,J,K)  - 0.0 
DFX(I,J,K)  - 0.0 
S(I,J,K)  - 0.0 
1030  CONTINUE 
C 

C** •••lateral  flux  on  Y FACE 
C 

DO  70  K-1,N-1 
DO  70  J-1,M-1 
DO  70  I-1,L-1 
C 

R1  - D(I,J.K)  * YIP(J)  + D(I,J+1,K)  * (l.O-YIP(J)) 
R2  - D(I+1, J,K)  *YIP(J)  + D(I+1, J+1,K)  * (l.O-YIP(J)) 
C 

XY(I,J,K)  - R1  * XIP(I)  + R2  * (1.0«XIP(I))  + HRE 
C 

VU(I,J,K)  - (V(I,J,K)  + V(I+1,J,K))  • 0.5 
AFY(I,J,K)  - XY(I,J,K)  * YD{J) 

C 

70  CONTINUE 
C 

DO  1040  I-l, L 
DO  1040  J-1,M 
DO  1040  K-1,N 

AFYd,  J,K)-AFY(I,  J,K)-VU(I,  J,K)  /CMR(I,  J,K) 

C 

IF(AFY(I, J.K) .LE. (-2 . 0»VU (I, J, K) /CMR (I, J, K) ) ) 

1 AFY(I,J,K)  - -2.0*VU(I,J,K)/CMR(I,J,K) 

C 

IF(AFY(I, J,K) .LE.0.0)  AFY(I,J,K)  - 0.0 
1040  CONTINUE 
C 

DO  75  K-1,N-1 
DO  75  J-1,M-1 
DO  75  I-l, L-1 
C 

UV  - (U(I,J,K)  + U(I,J+1,K))  • 0.5 
GRADV  - (V(I+1.J,K)  - V{I, J, K) ) *XD (I) 

DU  - U(I,J,K)  - U(I,J+1,K) 

AFY(I, J,K)-VU(I, J,K) • (UV+DU/CMR(I, J, K) ) 

1 + AFY(I, J,K) *DU  - GRADV*XY(I, J,K) 

C 

75  CONTINUE 
C 

DO  80  K-2,N-1 
DO  80  J-2,M-1 
DO  80  1-2, L-1 
C 

DU  - ( AFY(I,J-1,K)  - AFY(I,J,K)  ) * HY(J) 

C 

UU(I,J,K)  - UU(I,J,K)  + DU 
C 

80  CONTINUE 

DO  1050  I-1,L 
DO  1050  J-1,M 
DO  1050  K-l.N 
AFX(I,J,K)  - 0.0 
DFXd,  J.K)  - 0.0 
Sd,J.K)  - 0.0 
1050  CONTINUE 
C 

c*».**lateral  flux  on  z face 

C 

DO  90  K-1,N-1 
DO  90  J-1,M-1 
DO  90  I-l, L-1 
C 

R1  - Dd,J,K)  * XIPd)  + Dd  + 1,J.K)  * (1.0-XIPd)) 
R2-Dd,J,K+l)  ‘XIPd)  +Dd  + 1.J.K+1)  • (1.0-XIPd)) 
C 

ZXd,J,K)  - R1  • ZIP(K)  + R2  * d.O-ZIP(K))  + HRE 
C 

WUd,J,K)  - (Wd,J,K)  + Wd  + 1,J,K))  • 0.5 

AFZd,J,K)  - ZXd,J,K)  * ZD(K) 

C 

90  CONTINUE 
C 

DO  1060  I-1,L 
DO  1060  J-1,M 
DO  1060  K-1,N 

AFZ  (I,  J,K)-AFZ  d,  J,  K) -WUd,  J,  K) /CMRd,  J,  K) 

C 

IF(AFZ  d,  J,  K)  . LE.  (-2 .0*WUd,  J,K)  /CMRd,  J,  K)  ) ) 

1 AFZd,J.K)  - -2.0*WUd,  J,K)/CMRd,J,K) 


C 

IF(AFZd,J,K)  .LE.0.0)  AFZd.J.K)  - 
1060  CONTINUE 
C 

DO  95  K-1,N-1 
DO  95  J-1,M-1 
DO  95  I-l, L-1 
C 

UW  - (Ud,J,K)  + Ud,J,K+l))  • 0.5 
GRADW  - (Wd  + 1,J,K)  - Wd,  J,K)  ) *XDd) 

DU  - Ud,J,K)  - Ud,J,K  + l) 

AFZ  (I,  J,K)-WUd,  J,K)  * (UW+DU/CMRd,  J,K)  ) 

1 + AFZd,J,K)*DU  - GRADW*2Xd,  J,K) 

C 

95  CONTINUE 
C 
C 

DO  100  K-2,N-1 
DO  100  J-2,M-1 
DO  100  1-2, L-1 
C 
C 

DU  - { AFZd,J,K-l)  - AFZd.J.K)  ) * HZ  (K) 
C 

UUd,J,K)  - UUd.J.K)  + DU 
C 

100  CONTINUE 
C 

RETURN 

END 


C 

SUBROUTINE  MOMENTY 
C 

PARAMETER  ( L-29, M-27 , N-20 ) 

C 

C IMPLICIT  DOUBLE  PRECISION  (A-H,0-2) 

C INTEGER  SX,SY,S2 

COMMON  /CONTR/ 

1 TITLE(20) 

2,  RE  ,HRE  ,PE  , HPE  , PR  , AR  .BETA, EPS  , DT  , ENMX 

3,  KSTM, NSTM, INIC, MAXT, VOLM, KSTP 

4, ZCD  ,ZC1  ,2C2  ,2C3  . ZSQ  , ZSE  , ZSC  , HZSQ, HZSE, HZSC 

5, DAdO,  60) 

C 

COMMON  /BCON/ 

1 DX(L+1)  .DY(M+1)  ,D2(N+1) 

2, CMR (L,M, N),NIN  , I IN (100, 7), U IN (100), NOBS, IOB(100, 6) 
3,NSOR.  ISORdOO,  6)  .SOR(IOO) 

C 

COMMON 

2 U(L,M,  N)  , V(L,M,N)  , W(L,M.  N)  .UU(L,M,  N)  . W(L,M.  N)  . W 
W(L,M,  N) 

3.  P (L,M,  N)  , D (L,M,  N)  , S (L,  M,  N)  , AFX  (L,  M,  N)  , DFX  (L,M.  N) 

5, Q(L,M,  N)  ,E(L,M,N)  , C(L,M,  N) 

6,  SX(L,M,  N) ,SY(L,M,N) , SZ (L.M, N) , BE(L,M,N) 

7, XD  (L),YD  (M),2D  (N) 

8, HX  (L).HY  {M).HZ  (N) 

9, XIP  (L)  . YIP  (M)  , ZIP  (N) 

C 

DIMENSION  AFY(L,M, N) .AFZ ( L, M, N) , XY ( L. M. N) , YZ (L, M, N) 
1, UV(L,M, N) , WV(L,M, N) 

C 

EQUIVALENCE  (AFX(1. 1.1) . AFY ( 1 , 1,1), AFZ (1,1,1)) 

C 

EQUIVALENCE (DFX(1. 1,1),XY(1,1,1),YZ (1,1,1)) 

C 

EQUIVALENCE (S (1, 1,1),UV(1,1,1),WV(1,1,1)) 

C 

C*****Y  MOMENTUM  VARIABLE  UPDATE* ***••**••*•******** * 

C 

^♦••••INITIALIZATION  OF  WORK  ARRAYS  FOR  Y FACES 
C 

DO  1000  I-1,L 
DO  1000  J-1,M 
DO  1000  K-1,N 
Wd,  J,K)  - 0.0 
AFXd,  J,K)  - 0.0 
DFXd.J,K)  - 0.0 
1000  CONTINUE 
C 

DO  60  K-2,N 
DO  60  J-2,M 
DO  60  1-2, L 
C 

VVd,J,K)  - (Vd,J,K)  + Vd,J-l,K))  * 0.5 
C 

AFY(I,J.K)  - ( Dd.J.K)  + HRE  ) * HY(J) 

C 

60  CONTINUE 
C 

DO  1010  I-l,  L 
DO  1010  J-1,M 
DO  1010  K-1,N 

AFYd,  J,K)-AFYd,  J.K)-VVd,  J,K)/CMRd,  J.K) 

C 

IF(AFYd,  J,  K)  .LE.  (-2 . 0*VVd,  J.  K)  /CMR  (I,  J.K)  ) ) 
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1 AFY(I,J,K)  - -2.0*W(I,J,K)/CMR(I,J,K) 

C 

IF(AFY{I, J.K) .LE.0.0)  AFY(I,J,K)  - 0.0 
1010  CONTINUE 
C 

DO  65  K-2,N 
DO  65  J-2,M 
DO  65  1-2, L 
C 

DV  - V(I,J-1,K)  - V(I,J,K) 

GRADV  - -DV*HY(J) 

AFY(I,  J,  K)-W|I,  J,  K)  • (W(I,  J,  K)  +DV/CMR  ( I , J,  K)  ) + 

AFX(I, J,K) *DV 

2 - GRADV* ( HRE  + D(I,J,K)) 

C 

65  CONTINUE 
C 

DO  1020  I-1,L 
DO  1020  J-1,M 
DO  1020  K-1,N 
W(I,  J,K)  - 0.0 
1020  CONTINUE 
C 

DO  66  K-2,N-1 
DO  66  J-2,M-1 
DO  66  1-2, L-1 

DV  - (AFY(I,J.K)  - AFYd,  J+1,  K)  ) * YD(J) 

W(I,J,K)  - DV  +(P(I,J,K)  - P(I,  J+1,K))*YD{J) 

66  CONTINUE 
C 

DO  1030  I-1,L 
DO  1030  J-1,M 
DO  1030  K-1,N 
AFX<I,J,K)  - 0.0 
DFX{I,J,K)  - 0.0 
S(I,J.K)  - 0.0 
1030  CONTINUE 
C 

C*****LATERAL  FLUX  ON  X FACE 
C 

DO  70  K-1,N-1 
DO  70  J-1,M-1 
DO  70  I-l, L-1 
C 

R1  - D(I,J,K)  * YIP{J)  + D{I,J+1,K)  * {l.O-YIP(J)) 
R2  - D(I+1, J,K)  * YIP(J)  + D{I+1, J+1,K)  * (l.O-YIP(J)) 
C 

XY(I,J,K)  - R1  • XIP(I)  + R2  * (l.O-XIP(I))  + HRE 
C 

UV{I,J.K)  - (U(I,J,K)  + U(I,J+1,K))  * 0.5 

AFX(I.J,K)  - XY(I,J,K)  * XD(I) 

C 

70  CONTINUE 
C 

DO  1040  I-1,L 
DO  1040  J-1,M 
DO  1040  K-1,N 

AFXd,  J.K)-AFX(I,  J,K)-UV(I,  J,K)  /CMRd,  J,K) 

C 

IF  (AFXd,  J,  K)  . LE.  (-2 . 0*UVd,  J,  K)  /CMR  (I,  J,  K)  ) ) 

1 AFXd,J,K)  - -2.0*UVd,  J,K)/CMRd,  J,K) 

C 

IF(AFXd,  J,K)  .LE.0.0)  AFXd,J,K)  - 0.0 
1040  CONTINUE 
C 

DO  75  K-1,N-1 
DO  75  J-l.M-1 
DO  75  I-l, L-1 
C 

VU  - (Vd,J,K)  + Vd  + 1,J,K))  * 0.5 
GRADU  - (Ud,J+l,K)  - Ud,  J.  K)  ) *YD(J) 

DV  - Vd,J,K)  - Vd  + 1,J,K) 

AFXd.  J,K)-UVd,  J,K)  * (VU+DV/CMRd,  J,K)  ) 

1 + AFXd.J.K)*DV  - GRADU*XYd.  J,K) 

C 

75  CONTINUE 
C 

DO  80  K-2,N-1 
DO  80  J-2.M-1 
DO  80  1-2, L-1 
C 

DV  - ( AFXd-l.J,K)  - AFXd.J.K)  ) * HX  (I ) 

C 

Wd.J.K)  - Wd,J,K)  + DV 
C 

80  CONTINUE 
C 

DO  1050  I-1,L 
DO  1050  J-l.M 
DO  1050  K-1,N 
AFXd.J.K)  - 0.0 
DFXd,  J.K)  - 0.0 
Sd,  J,K)  - 0.0 
1050  CONTINUE 
C 

C*****LATERAL  FLUX  ON  Z FACE 
C 


DO  90  K-1,N-1 
DO  90  J-1,M-1 
DO  90  I-l, L-1 
C 

R1  - Dd.J.K)  * 2IP(K)  + Dd,J,K+l)  * d.O-ZIP(K)) 
R2  - Dd,J+l,K)  * ZIP(K)  + Dd,  J+1,K+1)  * d.O-ZIP(K)  ) 
C 

YZd,J,K)  R1  * YIP(J)  + R2  * (l.O-YIP(J))  + HRE 
C 

WVd,J,K)  - (Wd.J.K)  + Wd,J+l.K))  • 0.5 

AFZd.J.K)  - YZd,J,K)  * 2D(K) 

C 

90  CONTINUE 
C 

DO  1060  I-1,L 
DO  1060  J-1,M 
DO  1060  K-1,N 

AFZd,  J.K)-AFZd,  J,K)-WVd.  J,K)/CMRd,  J.K) 

C 

IF(AFZ  d,  J,  K)  .LE.  (-2.0*WVd,  J,  K)  /CMR  (I,  J.  K)  ) ) 

1 AFZd.J.K)  - -2.0*WVd,  J.K) /CMRd.  J.K) 

C 

IF(AFZd,  J.K)  .LE.O.O)  AFZd.J.K)  - 0.0 
1060  CONTINUE 
C 

DO  95  K-1,N-1 
DO  95  J-l.M-1 
DO  95  I-l, L-1 
C 

VW  - (Vd,J,K)  + Vd.J,K+l))  * 0.5 
GRADW  - (Wd,J+l,K)  - Wd,  J,  K)  ) *YD  ( J) 

DV  - Vd.J.K)  - Vd.J,K+l) 

AFZ  (I,  J.K)-WVd,  J.K)  * (VW+DV/CMRd.  J.K)  ) 

1 + AFZd,J,K)*DV  - GRADW*YZd,  J.K) 

C 

95  CONTINUE 
C 
C 

DO  100  K-2,N-1 
DO  100  J-2.M-1 
DO  100  1-2. L-1 
C 
C 

DV  - { AFZd,J,K-l)  - AFZd.J.K)  ) * HZ  (K) 

C 

Wd.J.K)  - Wd.J.K)  + DV 
C 

100  CONTINUE 
C 

RETURN  ^ 

END 


C 

SUBROUTINE  MOMENTZ 
C 

PARAMETER  ( L-2  9 . M-2  7 . N-20 ) 

C 

C IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C INTEGER  SX.SY.SZ 

COMMON  /CONTR/ 

1 TITLE(20) 

2.  RE  .HRE  ,PE  , HPE  , PR  , AR  .BETA.EPS  , DT  , ENMX 

3,  KSTM. NSTM, INIC, MAXT, VOLM, KSTP 

4,2CD  ,ZC1  ,ZC2  ,ZC3  , ZSQ  , 2SE  , ZSC  , HZSQ, HZSE, HZSC 
5,DA(10,60) 

C 

COMMON  /BCON/ 

1 DX(L+1)  ,DY{M+1)  ,DZ(N+1) 

2. CMR (L, M, N) . NIN  , IIN (100, 7) , UIN ( 100) , NOBS, lOB (100, 6) 
3.NSOR.  ISORdOO,  6)  .SOR(IOO) 

C 

COMMON 

2 U (L.M,  N)  . V(L,M,  N)  , W(L,M.  N)  . UU  (L.M,  N)  , W(L.  M.  N)  , W 
W(L,M.  N) 

3.P(L.M,  N)  .D(L,M.N)  .S(L.M.N)  .AFX(L.M.N)  ,DFX(L.M.N) 
5,Q(L,M,N)  ,E(L.M,  N)  ,C(L,M.N) 

6,SX(L,M,N)  ,SY(L,M,N)  ,SZ(L.M,N)  ,BE(L,M.N) 

7. XD  (L),YD  (M),ZD  (N) 

8. HX  (L).HY  (M).HZ  (N) 

9. XIP (L) , YIP (M) , ZIP (N) 

C 

DIMENSION  AFY(L,M,N) .AFZ ( L. M. N ) , YZ ( L, M. N) , ZX ( L, M. N) 
1,VW(L,M.N)  ,UW(L,M,N) 

C 

EQUIVALENCE  (AFXd,  1.1)  . AFY  ( 1 . 1,1)  .AFZ  (1,1,1)) 

C 

EQUIVALENCE  (DFXd,  1.1),YZ(1.1,1).ZX  (1,1,1)) 

C 

EQUIVALENCE (S (1, 1.1),VW(1,1.1).UW (1,1.1)) 

C 

C*** ••MOMENTUM  VARIABLE  UPDATE^ •••••*•*••*••••*•***** * 

C 

^•••.•INITIALIZATION  OF  WORK  ARRAYS  FOR  Z FACE 
C 

DO  1000  I-1,L 
DO  1000  J-l.M 
DO  1000  K-1,N 
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WW(I, J,K)  - 0.0 
AFXd,  J,K)  - 0.0 
DFXd,  J.K)  - 0.0 
1000  CONTINUE 
C 

DO  60  K-2,N 
DO  60  J-2,M 
DO  60  1-2, L 
C 

WWd,J,K)  - (Wd,J,K)  + Wd,J,K-l))  * 0.5 
C 

AFZd,J.K)  - ( Dd.J.K)  + HRE  ) * HZ(K) 

C 

60  CONTINUE 
C 

DO  1010  I-1,L 
DO  1010  J-1,M 
DO  1010  K-1,N 

AFZ  (I,  J,  K) -AFZ  (I,  J,  K) -*WW  (I,  J,  K) /CMR  (I,  J,  K) 

C 

IF(AFZ  (I,  J,K)  .LE.  (-2. 0*WWd,  J,  K)  /CMRd,  J,  K)  ) ) 

1 AFZd,J,K)  - -2.0*WWd,J,K)/CMRd.  J,K) 

C 

IF(AFZd,  J,K)  .LE.0.0)  AFZd,J,K)  - 0.0 
1010  CONTINUE 
C 

DO  65  K-2,N 
DO  65  J-2,M 
DO  65  1-2, L 
C 

DW  - Wd,J,K-l)  - Wd,J,K) 

GRADW  - -DW*HZ (K) 

AFZd,  J,K)-WWd,  J,K)  * (WWd.  J,K)+DW/CMRd,  J,K)  ) + 

AFXd,  J,K)*DW 

2 - GRADW*  ( HRE  + Dd,J,K)) 

C 

65  CONTINUE 
C 

DO  1020  I-1,L 
DO  1020  J-1,M 
DO  1020  K-1,N 
WW<I, J,K)  - 0.0 
1020  CONTINUE 
C 

DO  66  K-2,N-1 
DO  66  J-2,M-1 
DO  66  1-2, L-1 

DW  - (AF2d,J.K)  - AFZd,J,K+l))  * ZD(K) 

WWd,J,K)  - DW  +(Pd,J,K)  - Pd,  J.K+1)  ) *ZD(K) 

66  CONTINUE 
C 

DO  1030  I-1,L 
DO  1030  J-1,M 
DO  1030  K-1,N 
AFXd,  J,K)  - 0.0 
DFXd,J,K)  - 0.0 
Sd,J,K)  - 0.0 
1030  CONTINUE 
C 

lateral  flux  ON  Y FACE 

c 

DO  70  K-1,N-1 
DO  70  J-1,M-1 
DO  70  I-1,L-1 
C 

R1  - Dd,J,K)  * 2IP(K)  + Dd,J,K+l)  * d.O-ZIP(K)) 
R2-Dd,J+l,K)  *ZIP{K)  +Dd,J+l,K  + l)  * (l.O-ZIP(K)) 
C 

YZd,J,K)  - R1  * YIP(J)  + R2  * d.O-YIP(J))  + HRE 
C 

VWd,J,K)  - (Vd,J,K)  + Vd,J,K+l))  * 0.5 

AFYd,J,K)  - YZd,J,K)  * YD(J) 

C 

70  CONTINUE 
C 

C*****AMAX  JUDGEMENT  FOR  CYBER  205 
C 

DO  1040  I-l, L 
DO  1040  J-1,M 
DO  1040  K-1,N 

AFYd,  J,K)-AFYd,  J,K)-VWd,  J.K)/CMRd,  J,K) 

C 

IF(AFYd.  J,K)  . LE.  (-2 . 0*VWd,  J,K)  /CMRd,  J,K)  ) ) 

1 AFYd,J,K)  - -2.0*VWd,J,K)/CMRd,J,K) 

C 

IF(AFYd,  J,K)  .LE.0.0)  AFYd,J,K)  - 0.0 
1040  CONTINUE 
C 

DO  75  K-l.N-1 
DO  75  J-1,M-1 
DO  75  I-l, L-1 
C 

WV  - (W<I,J,K)  + Wd,J  + l,K))  * 0.5 
GRADV  - (Vd,J,K+l)  - Vd,  J.K)  ) •ZD(K) 

DW  - Wd,J,K)  - Wd,J+l,K) 

AFYd,  J,  K)  -VWd,  J,  K)  * (WV+DW/CMR  (I,  J,K)  ) 

1 + AFYd.J,K)*DW  - GRADV*YZ  d,  J.  K) 


C 

75  CONTINUE 
C 

DO  80  K-2,N-1 
DO  80  J-2,M-1 
DO  80  1-2, L-1 
C 

DW  - ( AFYd,J-l,K)  - AFYd,J,K)  ) * HY(J) 

C 

WWd,J,K)  - WWd,J,K)  + DW 
C 

80  CONTINUE 

DO  1050  I-1,L 
DO  1050  J-1,M 
DO  1050  K-1,N 
AFXd,J,K)  - 0.0 
DFXd,J,K)  - 0.0 
Sd,J,K)  - 0.0 
1050  CONTINUE 
C 

C*****LATERAL  FLUX  ON  X FACE 
C 

DO  90  K-1,N-1 
DO  90  J-1,M-1 
DO  90  I-l, L-1 
C 

R1  - Dd,J,K)  * XIPd)  + D(I  + 1,J,K)  * (1.0-XIPd)) 
R2-Dd,J,Kfl)  -XIPd)  + Dd-t-l,  J,K+1)  • (l.O-XIPd)) 
C 

ZXd,J,K)  - R1  * ZIP(K)  + R2  • d.O-ZIP(K))  + HRE 
C 

UW<I,J,K)  - {Ud,J,K)  + Ud,J,K+l))  * 0.5 

AFXd,J,K)  - ZXd,J,K)  * XDd) 

C 

90  CONTINUE 
C 

DO  1060  I-l, L 
DO  1060  J-1,M 
DO  1060  K-1,N 

AFXd.  J,  K) -AFXd,  J,K)-UWd,  J,K) /CMRd,  J.K) 

C 

IF  (AFX  (I,  J.K)  .LE.  (-2.0*UWd,  J,K)  /CMRd,  J.K)  ) ) 

1 AFXd, J.K)  - -2.0*UWd,  J,K)/CMRd,J,K) 

C 

IF(AFXd,  J.K)  .LE.0.0)  AFXd, J.K)  - 0.0 
1060  CONTINUE 
C 

DO  95  K-1,N-1 
DO  95  J-1,M-1 
DO  95  I-l, L-1 

C ^ 

WU  - (Wd.J.K)  + Wd  + 1,J,K))  * 0.5 
GRADU  - (Ud,J,K+l)  - UCI,  J.K)  ) *ZD(K) 

DW  - Wd.J.K)  - Wd  + 1.J,K) 

AFX  (I,  J,  K)-UWd,  J,  K)  * (WU+DW/CMR  (I,  J,  K)  ) 

1 + AFZd,J.K)*DW  - GRADU»ZXd,  J.K) 

C 

95  CONTINUE 
C 
C 

DO  100  K-2,N-1 
DO  100  J-2,M-1 
DO  100  1-2,  L-1 
C 
C 

DW  - ( AFXd-l,J.K)  - AFXd. J.K)  ) * HX  (I ) 

C 

WWd. J.K)  - WWd. J.K)  + DW 
C 

100  CONTINUE 
C 

RETURN 

END 


C 

SUBROUTINE  BCONSUB 
C 

c 

PARAMETER  { L-29. M-27 . N-20 ) 

C 

C IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

C INTEGER  SX.SY.SZ 

COMMON  /CONTR/ 

1 TITLE(20) 

2,  RE  .HRE  ,PE  , HPE  , PR  , AR  , BETA, EPS  , DT  , ENMX 

3, KSTM, NSTM, INIC, MAXT, VOLM. KSTP 

4, ZCD  ,ZC1  ,ZC2  ,2C3  , ZSQ  . ZSE  , ZSC  , HZSQ, HZSE, HZSC 

5,  DA (10. 60) 

C 

COMMON  /BCON/ 

1 DX(L+1)  .DY(M+1)  .DZ(N+1) 

2,  CMR(L,M,  N)  ,NIN  , IINdOO,  7)  , UIN(IOO)  . NOBS,  108(100,  6) 
3.  NSOR,  ISORdOO,  6)  . SOR(IOO) 

C 

COMMON 

2 U<L,M,  N)  . V(L.M.  N)  . W(L,M.  N)  . UU(L,M,  N)  . W(L,M.N)  , W 
W(L,M,N) 
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3,P {L,M,N) N) , S (L.M. N) ,AFX(L,M,N) .DFX(L,M, N) 
5,Q(L,M,N)  ,E(L,M,  N)  ,C(L,M,N) 

6,SX(L,M,N) ,SY(L,M,N) ,SZ(L,M,N) ,BE(L,M,N) 

7, XD  (D.YD  (M),2D  (N) 

8, HX  (L).HY  (M),HZ  (N) 

9, XIP (L) , YIP (M) , ZIP (N) 

COMMON  /SCAL/  ICON (3) 

•*SET  FREE  SLIP  WALL  1,2 


DO  10  K-2,N-1 
DO  10  J-2,M-1 


V 

(2,  J,K) 

• 

V 

(3  ,J»K) 

V 

(L,  J.K) 

V 

(L-1, J, K) 

w 

(2,  J.K) 

. 

w 

(3  .J.K) 

w 

(L.  J,  K) 

- 

w 

(L-l, J.K) 

Q 

(2. J.K) 

- 

Q 

(3  ,J,K) 

Q 

(L.  J.K) 

“ 

Q 

(L-l, J.K) 

E 

(2. J.K) 

E 

(3  .J.K) 

E 

(L.  J.K) 

- 

E 

(L-l, J, K) 

C 

(2. J.K) 

C 

(3  .J.K) 

C 

(L.  J, K) 

- 

C 

(L-l. J, K) 

U 

(I.J.K) 

• 

u 

(2  .J.K) 

1 

+ ( 

V 

(2. J.K) 

- V 

(2. J-1,K) 

HY(J) 

/ HX(2) 

2 

+ ( 

w 

(2, J.K) 

- W 

(2. J,K-1) 

HZ  (K) 

/ HX(2) 

U 

(L.  J.K) 

- 

u 

(L-l. J, K) 

1 

- ( 

V 

(L,  J.K) 

- V 

(L, J-1,K) 

HY(J) 

/ HX(L) 

2 

- ( 

w 

(L, J.K) 

- w 

(L. J,K-1) 

HZ  (K) 

/ HX(L) 

10  CONTINUE 

.***»SET  FREE  SLIP  WALL  3.4 


20  CONTINUE 

•***SET  FREE  SLIP  WALL  5.6 


DO  30  J-2.M-1 
DO  30  1-2. L-1 


U (I.J.2) 
U (I.J.N) 


U (I.J.  3) 

U (I,J,N-1) 


V (I,  J.2)  - V (I.  J,  3) 

V (I.J.N)  - V (I. J,N-1) 


Q (I.J.2) 
Q (I.J.N) 


Q (I.J.  3) 

Q (I.J,N-1) 


E (I.J.2)  - E (I.J.  3) 

E (I.J.N)  - E (I. J,N-1) 


C (I.J. 2) 
C (I.J.N) 


C (I.J,  3) 

C (I.J.N-1) 


W (I.J.l)  - 

1 

HX(I)  / HZ (2) 


+ ( U (I.J.2) 


U (I-1,J.2)  ) 


2 

HY(J) 


/ HZ(2) 
W (I.J.N) 

1 

HX(I) 

2 

HY(J) 


( V (I, J.2)  - V (I.J-1.2)  ) 


(I, J,N-1) 


/ H2(N) 
/ HZ(N) 
30  CONTINUE 


( U (I.J.N) 
( V (I.J.N) 


U (I-l.J.N)  ) 

V (I,J-1,N)  ) 


C**** •BOUNDARY  CONDITION  SET 
C 

DO  100  III-1,NIN 
C 

11  - IIN(III.2) 

12  - IINdll,  3) 

J1  - IINdll. 4) 

J2  - IIN  (III, 5) 

K1  - IINdll,  6) 

K2  - IINdll, 7) 


SEV  - UINdll) 


GO 


TO 


(110, 120. 130, 140. 150. 160, 170. 180, 190, 200, 210. 220 

1 .230. 240, 250, 260. 270, 280, 290. 300, 310, 320, 33 

0,340)  , IINdll,  1) 

C 

C*****U  VALUE 
C 

110  DO  111  K-K1.K2 
DO  111  J-J1,J2 
DO  111  I-Il, 12 

111  U (I.J.K)  - SEV 
GO  TO  100 

C 

C*****V  VALUE 
C 

120  DO  121  K-K1.K2 
DO  121  J-J1.J2 
DO  121  I-Il, 12 

121  V (I.J.K)  - SEV 
GO  TO  100 

C 


DC 

1 20  K-2.N-1 

C*»** 

*W  VALUE 

DC 

1 20  1-2, L-l 

C 

C 

130 

DO  131  K-K1,K2 

W 

(I.  2.  K)  - W 

d,  3,K) 

DO  131  J-J1.J2 

w 

(I,M,K)  - W 

(I.M-1,K) 

DO  131  I-Il, 12 

C 

131 

W (I.J.K)  - SEV 

u 

(I,  2.  K)  - U 

(I,  3,K) 

GO  TO  100 

u 

(I.M.K)  - U 

d,M-l,K) 

C 

C 

C*»*» 

•Q  VALUE 

Q 

(I.2,K)  - Q 

(I.  3.K) 

c 

Q 

(I.M.K)  Q 

d,M-l.K) 

140 

DO  141  K-K1,K2 

C 

DO  141  J-J1,J2 

E 

d,2,K)  - E 

(I,  3.K) 

DO  141  I-Il, 12 

E 

(I.M.K)  - E 

(I,M-1.K) 

141 

Q (I.J.K)  - SEV 

C 

GO  TO  100 

C 

(1,2, K)  - C 

(I.  3.K) 

C 

C 

(I.M.K)  - C 

(I.M-1. K) 

c**** 

*E  VALUE 

C 

c 

V 

(I, l.K)  - V 

(I,  2,K) 

150 

DO  151  K-K1,K2 

1 

+ ( 

W 

(I.2,K) 

- W 

(I,2,K-1)  ) 

DO  151  J-J1.J2 

• 

HZ  (K) 

/ HY(2) 

DO  151  I-Il, 12 

2 

+ ( 

U 

(I,2.K) 

- U 

(I-1,2,K)  ) 

151 

E (I.J.K)  - SEV 

* 

HX(I) 

/ HY(2) 

GO  TO  100 

V 

(I.M.K)  - V 

d.M-l.K) 

C 

1 

- ( 

w 

(I.M.K) 

- W 

d,M.K-l)  ) 

c***» 

*C  VALUE 

• 

HZ  (K) 

/ HY(M) 

c 

2 

- ( 

U 

(I.M.K) 

- u 

(1-1, M.K)  ) 

160 

DO  161  K-K1,K2 

» 

HXd) 

/ HY(M) 

DO  161  J-J1,J2 

DO  161  I-Il. 12 
161  C (I.J.K)  - SEV 
GO  TO  100 


*P  VALUE  ( X DIRECTION  ) 


170  DO  171  K-K1.K2 
DO  171  J-J1.J2 

171  P (II, J.K)  - SEV 
GO  TO  100 

VALUE  ( Y DIRECTION  ) 

180  DO  181  K-K1,K2 
DO  181  I-Il, 12 

181  P (I.Jl.K)  - SEV 
GO  TO  100 


•P  VALUE  ( Z DIRECTION  ) 


190  DO  191  J-J1,J2 
DO  191  1-11,12 

191  P (I.J.Kl)  - SEV 
GO  TO  100 

»****SET  WALL  LAW 
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\ 


c 

C*«**»x  DIRECTION 
C 

200  CONTINUE 
C 

DO  201  K-K1,K2 
DO  201  J-J1,J2-1 

201  V (I2,J,K)  - V (I1,J,K)  * ( 1.0*2.0*SEV  ) 

C 

DO  202  K-K1,K2-1 
DO  202  J-J1,J2 

202  W (I2.J,K)  - W (I1,J,K)  • ( 1.0-2.0*SEV  ) 

C 

DD  - DX(Il) 

C 

DO  203  K-K1,K2 
DO  203  J-J1,J2 

E (I1,J,K)  - 2CD**.75  • ABS(Q(I1,J,K))**1,5  • 2.0 
/ ( 0.4*DD  ) 

E (I2,J,K)  - Eai,J,K) 

203  CONTINUE 
C 

GO  TO  100 
C 

Q*i.***yf  DIRECTION 
C 

210  CONTINUE 
C 

DO  211  K-K1,K2-1 
DO  211  I-Il, 12 

211  W (I,J2,K)  - W (I,J1,K)  • { 1.0-2.0*SEV  ) 

C 

DO  212  K-K1,K2 
DO  212  1-11,12-1 

212  U (I,J2,K)  - U (I,J1,K)  • ( 1.0-2.0*SEV  ) 

C 

DD  - DY(Jl) 

C 

DO  213  K-K1,K2 
DO  213  1-11,12 

E (I,J1,K)  - ZCD**.75  * ABS (Q(I, J1,K) ) **1.5  * 2.0 
/ { 0.4*DD  ) 

E (I,J2,K)  - E(I,J1,K) 

213  CONTINUE 
C 

GO  TO  100 

c 

C**»**z  DIRECTION 
C 

220  CONTINUE 
C 

DO  221  J-J1,J2 
DO  221  I-Il, 12-1 

221  U (I,J,K2)  - U (I,J,K1)  * ( 1.0-2.0*SEV  ) 

C 

DO  222  J-J1,J2-1 
DO  222  I-Il, 12 

222  V (I,J,K2)  - V (I,J,K1)  * ( 1.0-2.0*SEV  ) 

C 

DD  - D2(K1) 

C 

DO  223  J-J1,J2 
DO  223  I-Il, 12 

E d.J.KD  - 2CD**.75  * ABS  (Q  ( I , J,  K1 ) ) * * 1 . 5 * 2.0 
/ ( 0.4*DD  ) 

E (I, J,K2)  - E(I, J,K1) 

223  CONTINUE 
C 

GO  TO  100 
C 

C*****HEAT  FLUX  SPECIFIED  ( X DIRECTION  ) 

C 

230  DO  231  K-K1,K2 
DO  231  J-J1,J2 

C 

IF(  E(I1,J,K)  .LE.  0.0  )THEN 

RAMI  - HPE 

ELSE 

RAMI  - ZCD  • HZSC  * Q(I1,J,K)**2  / E(I1,J,K)  + HPE 
END  IF 

RAM  - RAMI  * HX(Il) 

C(I2,J.K)  - SEV  / RAM  + C(I1,J,K) 

C 

231  CONTINUE 
C 

GO  TO  100 
C 

C*****HEAT  FLUX  SPECIFIED  ( Y DIRECTION  ) 

C 

240  DO  241  K-K1,K2 
DO  241  I-Il, 12 
C 

IF(  E(I,J1,K)  .LE.  0.0  )THEN 

RAMI  - HPE 

ELSE 

RAMI  - ZCD  * HZSC  * Q(I,J1,K)**2  / E(I,J1,K)  + HPE 
END  IF 

RAM  - RAMI  * HY(Jl) 


C(I,J2,K)  - SEV  / RAM  + C(I,J1,K) 

C 

241  CONTINUE 
C 

GO  TO  100 
C 

C*****HEAT  FLUX  SPECIFIED  ( Z DIRECTION  ) 

C 

250  DO  251  J-J1,J2 
DO  251  I-Il, 12 

C 

IF(  E(I,J,K1)  .LE.  0.0  )THEN 

RAMI  - HPE 

ELSE 

RAMI  - ZCD  • HZSC  * Q(I,J,K1)**2  / E(I,J,K1)  + HPE 
END  IF 

RAM  - RAMI  * HZ(Kl) 

C(I,J,K2)  - SEV  / RAM  + C(I,J,K1) 

C 

251  CONTINUE 
C 

GO  TO  100 
C 

C*<i.*.HEAT  TRANSFER  COEFFICIENT  SPECIFIED  ( X DIRECTION 
) 

C 

260  DO  261  K-Kl. K2 
DO  261  J-J1,J2 

C 

IF(  E(I1,J,K)  .LE.  0.0  )THEN 

RAMI  - HPE 

ELSE 

RAMI  - ZCD  * HZSC  * Q(I1,J,K)**2  / E(I1,J.K)  + HPE 
END  IF 

RAM  - RAMI  * HX(Il) 

C(I2,J,K)  - SEV  / RAM  * ( C(I2,J,K)  - C(I1,J,K)  ) 
+ C(I1, J,K) 

C 

261  CONTINUE 
C 

GO  TO  100 
C 

C*****HEAT  TRANSFER  COEFFICIENT  SPECIFIED  ( Y DIRECTION 

) 

C 

270  DO  271  K-Kl, K2 
DO  271  1-11,12 

C 

IF(  E(I,J1.K)  .LE.  0.0  )THEN 

RAMI  - HPE 

ELSE 

RAMI  - ZCD  * HZSC  * Q(I,J1,K)**2  / E(I,J1,K)  + HPE 
END  IF 

RAM  - RAMI  * HY(Jl) 

C(I.J2,K)  - SEV  / RAM  * ( C(I,J2,K)  - C(I,J1,K)  ) 
+ C(I,  J1,K) 

C 

271  CONTINUE 
C 

GO  TO  100 
C 

C*****HEAT  TRANSFER  COEFFICIENT  SPECIFIED  ( Z DIRECTION 
) 

C 

280  DO  281  J-Jl, J2 
DO  281  I-Il, 12 

C 

IF(  E(I,J,K1)  .LE.  0.0  )THEN 

RAMI  - HPE 

ELSE 

RAMI  - ZCD  * HZSC  • Q(I,J,K1)**2  / E(I,J,K1)  + HPE 
END  IF 

RAM  - RAMI  • HY(Jl) 

C(I.J.K2)  - SEV  / RAM  * ( C(I,J,K2)  - C(I,J,K1)  ) 
+ Cd,  J,K1) 

C 

281  CONTINUE 
C 

GO  TO  100 
C 

C*****WALL  TEMPERATURE  SPECIFIED  ( X DIRECTION  ) 

C 

290  DO  291  K-K1,K2 
DO  291  J-J1,J2 

C 

291  Cd2,J.K)  - 2.0  * SEV  - Cdl,J.K) 

C 

GO  TO  100 
C 

C*****WALL  TEMPERATURE  SPECIFIED  ( Y DIRECTION  ) 

C 

300  DO  301  K-K1,K2 
DO  301  I-Il, 12 

C 

301  Cd,J2,K)  - 2.0  * SEV  - Cd,Jl.K) 

C 

GO  TO  100 
C 
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'WALL  TEMPERATURE  SPECIFIED  ( Z DIRECTION  ) 


NUM  - 1 


C 

310  DO  311  J-J1,J2 
DO  311  1-11,12 

C 

311  C(I,J,K2)  - 2.0  * SEV  - C(I,J,K1) 

C 

GO  TO  100 
C 

C*****Q  SLIP  VALUE  ( X DIRECTION  ) 

C 

320  DO  321  K-K1,K2 
DO  321  J-J1,J2 

C 

321  Q(I2,J,K)  - Q(I1,J,K)  * ( 1.0-2.0*SEV  ) 
C 

GO  TO  100 


C 

C 

C 


c 

c 

c 

C’ 

c 


c 

c 

c 

C’ 

c 

c 

c 

c 


SLIP  VALUE  { Y DIRECTION  ) 

330  DO  331  K-K1,K2 
DO  331  I-Il, 12 

331  Q{I,J2,K)  - Qd.Jl.K)  * ( 1.0-2.0*SEV  ) 
GO  TO  100 

SLIP  VALUE  ( Z DIRECTION  ) 

340  DO  341  J-J1,J2 
DO  341  I-Il, 12 

341  Q(I,J.K2)  - Q<I.J,K1)  * ( 1.0-2.0»SEV  ) 
GO  TO  100 

100  CONTINUE 
CALL  BSET 
RETURN 
END 


C 

C DUMMY  ROUTINE 
C 

SUBROUTINE  BSET 
C 

RETURN 

END 


C «oUTPUT *****************************************  * 

C 

SUBROUTINE  OUTPUT 
C 

PARAMETER  ( L-29, M-27 , N-20 ) 

C 

C IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

CHARACTER*4  THEMA, PLAN, TERM 
C 

C INTEGER  SX,SY,SZ 

COMMON  /CONTR/ 

1 TITLE(20) 

2.  RE  ,HRE  ,PE  , HPE  .PR  . AR  .BETA. EPS  . DT  . ENMX 

3.  KSTM, NSTM, INIC, MAXT, VOLM, KSTP 

4, ZCD  .ZCl  .ZC2  ,ZC3  . ZSQ  , ZSE  , ZSC  . HZSQ, HZSE. HZSC 

5, DA(10, 60) 

C 

COMMON  /BOON/ 

1 DX<L+1)  .DY(M+1)  ,DZ(N+1) 

2,  CMR  (L.M.N)  .NIN  . IINUOO,  7)  , UIN(IOO)  .NOBS,  IOB(100. 6) 
3,NSOR,  ISORdOO,  6)  , SORdOO) 

C 

COMMON 

2 U(L.M,N)  ,V(L,M,N)  .W(L,M,N)  ,UU  (L.M.N)  .VV(L,M,N)  .W 
W(L.M.N) 

3.  P (L.M.N)  ,D (L.M.N) , S (L.M.N) .AFX (L.M.N) .DFX( L.M.N) 
5. Q (L. M, N) .E (L.M.N) . C (L.M.N) 

6,SX(L.M.N)  ,SY(  L.M.N)  .SZ  (L.M.N)  .BE  (L.M.N) 

7. XD  (L),YD  {M).ZD  (N) 

8. HX  (L),HY  (M).HZ  (N) 

9. XIP (L) , YIP (M) .ZIP (N) 

C 

COMMON  /SCAL/  ICON (3) 

C 

DIMENSION  AA(L.M.N) 

EQUIVALENCE  (AFX(1.  l,l).AAd,l,l)) 


1 CONTINUE 

GOTO  ( 10. 20, 30. 40. 50. 60. 70) , NUM 

10  CONTINUE 

DO  11  K-1,N 
DO  11  J-l.M 
DO  11  I-l.L 

11  AAd.  J.K)  - U (I,  J.K) 

THEMA  - ' U' 

GO  TO  200 

20  CONTINUE 

DO  21  K-1,N 
DO  21  J-1,M 
DO  21  I-l, L 

21  AAd,  J.K)  - V (I,  J.K) 

THEMA  - ' V' 

GO  TO  200 

30  CONTINUE 

DO  31  K-1,  N 
DO  31  J-l.M 
DO  31  I-l,  L 

31  AAd,  J.K)  - W (I.  J.K) 

THEMA  - ' W' 

GO  TO  200 


N 


40  CONTINUE 
DO  41  K-1 
DO  41  J-l.M 
DO  41  I-1,L 

41  AAd, J.K)  - 
THEMA  - ' 

GO  TO  200 


50  CONTINUE 

DO  51  K-l.N 
DO  51  J-l.M 
DO  51  I-l.L 

51  AAd. J.K)  - 
THEMA  - ' 

GO  TO  200 


Q d.J. 
Q' 


60  CONTINUE 

DO  61  K-l.N 
DO  61  J-l.M 
DO  61  1-1, L 

61  AAd.  J.K)  - E (I.  J.K) 

THEMA  - ' E' 

GO  TO  200 

70  CONTINUE 

DO  71  K-l.N 
DO  71  J-1,M 
DO  71  I-l.L 

71  AAd,  J.K)  - C (I.  J.K) 

THEMA  - ' C' 

GO  TO  200 

***. OUTPUT 

200  CONTINUE 

«***Y-Z  PLANE 

PLAN  - ' Y-Z' 

TERM  - ' I 
IC  - ICON(l) 

INDEX  - 1 

CALL  PRINTl  (THEMA, PLAN, TERM, IC,  INDEX) 

****Z-X  PLANE 

PLAN  - ' Z-X' 

TERM  - ' J -' 

IC  - ICON(2) 

INDEX  - 2 


CALL  PRINTl  (THEMA, PLAN. TERM, IC. INDEX) 

*X-Y  PLANE 

PLAN  - ' X-Y' 

TERM  - ' K 
IC  - ICON(3) 

INDEX  - 3 

CALL  PRINTl  (THEMA. PLAN, TERM. IC, INDEX) 

NUM  - NUM  + 1 

IF  ( NUM  .LE.  7 ) GO  TO  1 


RETURN 

END 
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c* 

c 


'PRINT' 


SUBROUTINE  PRINTl (THEMA, PLAN, TERM, IC, INDEX) 

C 

PARAMETER  { L-2  9 , M-2  7 , N-2  0 ) 

C 

C IMPLICIT  DOUBLE  PRECISION  {A-H,0-2) 

CHARACTER*4  THEMA, PLAN, TERM 
C 

C INTEGER  SX,SY,SZ 

COMMON  /CONTR/ 

1 TITLE(20) 

2,  RE  .HRE  .PE  .HPE  , PR  ,AR  , BETA, EPS  . DT  . ENMX 

3 ,  KSTM. NSTM, INIC, MAXT, VOLM, KSTP 

4, ZCD  ,ZC1  .ZC2  .ZC3  , ZSQ  . ZSE  . ZSC  , HZSQ, HZSE, HZSC 

5, DA(10, 60) 

C 

COMMON  /BOON/ 

1 DX(L+1)  ,DY(M+1)  ,DZ(N+1) 

2,  CMR (L.M.N) , NIN  , I IN  (100,  7)  .UIN (100) , NOBS, IOB(100, 6) 
3,  NSOR,  ISORdOO.  6)  ,SOR(100) 

C 

COMMON 

2 U(L,M,N)  ,V(L,M,N)  ,W(L,M,N)  ,UU(L,M,N)  ,W(L,M,N)  ,W 
W(L.M,N) 

3.P(L,M.N)  ,D  (L.M.N)  .S  (L.M.N)  .AFX(L,M,N)  ,DFX  (L.M.N) 
5.Q(L,M,N)  , E (L.M,  N)  , C(L,M,  N) 

6.SX(L.M,N) ,SY (L.M.N) ,SZ (L.M.N) , BE (L.M.N) 

7, XD  (D.YD  (M)  . ZD  (N) 

8, HX  (L).HY  (M),HZ  (N) 

9, XIP (L) , YIP (M) , ZIP (N) 

C 

COMMON  /SCAL/  ICON (3) 

C 

DIMENSION  AA{L,M,N) 

EQUIVALENCE  (AFX (1.1,1).AA(1,1.1)) 


C 

C’ 

c 


c 

c 

c 


c 

c 


c 


c 

c 

c 

c 


c 

c 


c 


c 

c 

c 

c 


****OUTPUT  TITLE 

WRITEdO.  600)  TITLE 

WRITE (10. 601)  THEMA. PLAN, TERM, IC, KSTP 
GO  TO  ( 10,20,30  ), INDEX 


••••Y-Z  PLANE 


10  CONTINUE 
KA  - 1 

100  CONTINUE 

KK  - 5 * ( KA-1  ) + 1 
KE  - 5 * KA 


IF  ( (KE-N)  .GE.  0 ) GO  TO  103 
WRITEdO,  602)  (K.K-KK.KE) 

WRITEdO,  101)  (J.  (AAdC,  J,  K)  ,K-KK.  KE)  , J-1,M) 

WRITE (10, 102) 

KA  - KA  + 1 
GO  TO  100 


103  CONTINUE 

WRITEdO.  602)  (K.K-KK,N) 

DO  104  J-1,M 

WRITEdO, 101)  J,  (AAdC,  J.K)  ,K-KK.N) 

104  CONTINUE 


RETURN 


****Z-X  PLANE 


20  CONTINUE 
lA  - 1 

200  CONTINUE 

II  - 5 * ( IA-1  ) + 1 
IE  - 5 • lA 


IF  ( (lE-L)  .GE.  0 ) GO  TO  203 
WRITEdO,  602)  (I.I-II.IE) 

WRITE (10. 101)  (K. (AA(I, IC, K) , I-II, IE) ,K-1, N) 

WRITEdO, 102) 
lA  - lA  + 1 
GO  TO  200 


203  CONTINUE 

WRITEdO,  602)  d,I-II,L) 

DO  204  K-l.N 

WRITEdO, 101)  K.  (AAd,  IC,  K)  , I-II,  L) 

204  CONTINUE 


RETURN 


•*«»X-Y  PLANE 


30  CONTINUE 
JA  - 1 

300  CONTINUE 


JJ  - 5 * ( JA-1  ) + 1 
JE  - 5 * JA 


C 


IF  ( (JE-M)  .GE.  0 ) GO  TO  303 
C 

WRITEdO,  602)  (J,  J-JJ,  JE) 

WRITEdO, 101)  (I.  (AAd,  J,  IC)  , J-JJ,  JE)  , I-l,  L) 

WRITEdO,  102) 

JA  - JA  + 1 
GO  TO  300 


303  CONTINUE 

WRITEdO,  602)  (J,  J-JJ,M) 

DO  304  I-1,L 

WRITEdO, 101)  I,  (AAd,  J,IC).  J-JJ, M) 

304  CONTINUE 


C 

RETURN 


C 

C.****pORMA-r  STATEMENT 
C 

101  FORMAT  (IH  ,I5.5F12.7) 

102  FORMAT  (IH  III  ) 

C 

600  FORMAT  (IH  ///IH  ,20A4) 

601  FORMAT  (IH  , A4 ,' -DISTRIBUTION  ON  ', A4 , ' PLAN', A4, 14 

1 ,'  KSTP-' , 110///) 

602  FORMAT  (IH  , 5112) 

C 

END 


FUNCTION  ISECND  (I) 

SAVE 

DIMENSION  MDAYS(12) 

DATA 

MDAYS/0, 31,  59, 90,  120, 151, 181, 212,  243,273,303,334/ 

IF  d.EQ.O)  THEN 

CALL  GETTIM  ( IHR. MIN. ISEC, I 1 10 ) 

ISECND  - 0.0 
RETURN 
ELSE 

CALL  GETTIM  ( IH, MINI , IS , I 1 0 ) 

CALL  GETDAT (lYEAR, IMONTH, IDAY) 

ISECND  - IS+60* (MIN1+60*IH) + ( IDAY+MDAYS ( I- 
MONTH) ) *24*3600 

IF(ISECND.LT.O.O)  ISCOND  - ISCOND  + 24*60*60 
RETURN 
ENDIF 
END 
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A.6  Sampe  Output 

An  sample  output  is  given  below  for  the  problem  pressented  in  Chapter  5.  The  physical 
meaning  of  the  terms  are  : 

KSTP  time  iteration  step  number 

NSTP  pressure  iteration  step  number 

KTIM  CPU  time  in  seconds 

QAVE  volumetric  root  mean  square  residual  of  k-equation 

HAVE  volumetric  root  mean  square  residual  of  e-equation 

CAVE  volumetric  root  mean  square  residual  of  temperature-equation 

DAVE  volumetric  root  mean  square  residual  of  momentum  equation 

PAVE  volumetric  mean  pressure 

ENAV  volumetric  mean  energy 

DMAX  maximum  continuity  error 

Convergence  is  judged  by  monitoring  the  temporal  variation  of  these  parmaeters 

After  the  convergent  status  listing,  spatial  variatin  at  the  final  time  is  given  per  the  liting 
pointer. 

On  a UNDC  or  DOS  computer,  the  flow  field  is  save  every  100  iterations  to  UNTT21.  The 
problem  can  be  terminated  by  a Cntrl  Break  sequence  and  restarted  by  copying  UNIT21  to 
UNIT22.  (Save  UNIT22  before  this  copying  if  you  have  disk  space  to  bum  and  need  it  for 
some  reason). 

AIR  DISTRIBUTION  PERFORMANCE  FOR  4.0  CFM  WITH  75  % FREE  AREA  DIFFUSER 


KSTM; TIME  ITERATION  MAX  NO.=  1999000 

NSTM; .. .PRESSURE  ITERATION  MAX  NO.=  20 

MAXT;  . CPU  TIME  MAX  (SEC.)=  288000 

INIC; INITIAL  FILE  DATA  CONTROL=  1 

RE  ; LAMINAR  REYNOLDS  NUMBER^  257710.0000000 

PR  ; LAMINAR  PRANDTL  NUMBER=  . 7100000 

AR  ARCHIMEDES  NUMBER=  -.0012350 

BETA; . .ACCERATE  RELAXIZATION  CONST=  1.0000000 

EPS  DIVERGENCE  TOLERANCE  LIMIT=  .0010000 

DT  ; TIME  DIVISION^  . 0100000 

ENMX; CONVERGENCE  JUDGING  CONST=  10.0000000 

ZCD  ; .0900000 

ZCl  ; 1.4400000 

ZC2  ; 1.9200000 

ZC3  ; 1.0000000 

ZSQ  ; 1.0000000 

ZSE  ; 1.3000000 

ZSC  ; .9000000 


****DX 


.063 

.063 

.063 

.063 

.063 

.063 

.063 

.063 

.063 

.125 

.125 

.298 

.298 

.298 

.298 

.298 

.298 

.172 

.172 

.172 

.172 

.172 

.172 

.208 

.208 

.208 

.185 

.185 

.185 

****DY 

.167 

.167 

.167 

.167 

.250 

.250 

. 417 

.417 

.500 

.500 

. 625 

. 625 

. 625 

. 625 

. 625 

. 625 

. 625 

. 625 

.417 

.417 

97 


.417 

***DZ 

.250 

.250 

.250 

.167 

.167 

.167 

.125 

.125 

.125 

.125 

.125 

.125 

.125 

.125 

.125 

.188 

.188 

.292 

.292 

.292 

.292 

.167 

.167 

.125 

.125 

.125 

*****DATA  OUTPUT  POINT***** 

( 6,  6,  6) 

*****BOUNDARY  CONDITION***** 


. .NOB. . . 

.11.  . . . 

12.  . . 

. Jl. 

. . . J2  . . 

. .Kl. . . 

, .K2. . 

.SPV 

1 

4 

8 

2 

2 

3 

6 

.00000 

2 

5 

8 

2 

2 

3 

6 

1.00000 

3 

5 

8 

2 

2 

2 

6 

.00000 

4 

5 

8 

2 

2 

3 

6 

.21140 

5 

5 

8 

2 

2 

3 

6 

.02219 

6 

5 

8 

2 

2 

3 

6 

1.00000 

8 

19 

22 

2 

3 

3 

7 

.00000 

1 

18 

22 

2 

2 

3 

7 

.00000 

2 

19 

22 

2 

2 

3 

7 

-.29090 

3 

19 

22 

2 

2 

2 

7 

.00000 

6 

19 

22 

2 

2 

3 

7 

.00000 

10 

28 

29 

3 

22 

3 

19 

.14286 

10 

20 

21 

23 

24 

3 

8 

.14286 

10 

28 

29 

23 

24 

9 

19 

.14286 

10 

28 

29 

25 

26 

3 

19 

.14286 

10 

3 

2 

3 

26 

3 

19 

.14286 

11 

3 

4 

3 

2 

3 

19 

.14286 

11 

5 

8 

3 

2 

7 

19 

.14286 

11 

9 

18 

3 

2 

3 

19 

.14286 

11 

19 

22 

3 

2 

8 

19 

.14286 

11 

23 

28 

3 

2 

3 

19 

.14286 

11 

3 

28 

26 

27 

3 

19 

.14286 

11 

21 

28 

22 

23 

3 

8 

.14286 

11 

21 

28 

25 

24 

3 

8 

.14286 

12 

3 

28 

3 

26 

19 

20 

.14286 

12 

21 

28 

23 

24 

9 

8 

.14286 

13 

28 

29 

3 

22 

3 

19 

. 00000 

13 

20 

21 

23 

24 

3 

8 

.00000 

13 

28 

29 

23 

24 

9 

19 

.00000 

13 

28 

29 

25 

26 

3 

19 

. 00000 

13 

3 

2 

3 

26 

3 

19 

.00000 

14 

3 

4 

3 

2 

3 

19 

.00000 

14 

5 

8 

3 

2 

7 

19 

.00000 

14 

9 

18 

3 

2 

3 

19 

.00000 

14 

19 

22 

3 

2 

8 

19 

.00000 

14 

23 

28 

3 

2 

3 

19 

.00000 

14 

3 

28 

26 

27 

3 

19 

.00000 

14 

21 

28 

22 

23 

3 

8 

.00000 

14 

21 

28 

25 

24 

3 

8 

.00000 

15 

3 

28 

3 

26 

19 

20 

.00000 

15 

21 

28 

23 

24 

9 

8 

. 00000 

*****OBSTACLE  CONDITION***** 

. . .11.  . . 

.12 

Jl.  . . 

. J2. 

. . .Kl. . 

. .K2 

21 

28 

23 

24 

3 

8 

*****CRITICAL  REYNOLDS 

NO. ***** 

. . .11.  . . 

.12 

Jl.  . . 

. J2. 

. . .Kl. . 

. .K2. . . 

.CMR 

1 

29 

1 

27 

1 

20 

2. 

00000 

Starting  Solution 

of  Navier 

Stokes 

Equations 

Set  Initial  Boundary 

Conditions 

Initial 

Time  is 

22349639 

seconds 

Starting 

Solution  Loop 

The  matrix  S is 

formed 

The  diffusivity 

has 

been 

calulated 

Finished 

Scalar 

X Fluxes 

Finished 

Scalar 

Y Fluxes 

Finished  Scalar  Z Fluxes 
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Checking  Obstacles 
Checking  Boundary  Conditions 
Updated  Q,  E S C 

Averages  of  Q,  E S C calculated 
Momentum  in  X direction  solved 
Momentum  in  Y direction  solved 
Momentum  in  Z direction  solved 
Velocities  updated 


KSTP.NSTP, 

.KTIM. . . 

. .QAVE 

EAVE . . 

. . . CAVE . 

DAVE . . 

. . . PAVE . . 

. . .ENAV. 

DMAX 

1 21 

17205, 

.03020- 

**★★*★★★*★★ 

.26084 

.12598 

.00529 

.00064 

1.70416 

2 21 

33 

.11876 

.01939 

.24591 

1.86575 

.01448 

.00092 

.37954 

3 21 

50 

.12725 

.01946 

.23696 

.83422 

.01417 

.00108 

.47056 

4 21 

66 

.14544 

.02261 

.22641 

.48167 

. 00989 

.00116 

.43783 

5 21 

83 

.16436 

.03035 

.21528 

.30238 

. 00527 

.00117 

.33681 

6 21 

100 

.17365 

. 03873 

.20561 

.21257 

.00234 

.00117 

.23681 

7 21 

116 

.17402 

.04529 

.19629 

.17335 

.00140 

.00115 

.15429 

SIMILAR  OUTPUT  FOR  REST  OF  RUN 


.KSTP , 

.NSTP 

.KTIM. . 

. . QAVE . . . 

.... EAVE . . 

. . . CAVE . . 

. . . DAVE . . 

. . .PAVE. . 

. . . ENAV . . 

. . .DMAX 

95400 

1 

12 

.00304 

.00281 

.00035 

.00005 

.00102 

.01106 

.00000 

95401 

1 

22 

.00040 

.00025 

.00035 

.00007 

.00102 

.01106 

.00065 

95402 

1 

32 

.00034 

.00022 

.00035 

.00006 

.00102 

.01106 

.00051 

95403 

1 

42 

.00029 

. 00019 

.00035 

. 00005 

.00102 

.01106 

.00030 

95404 

1 

52 

.00025 

.00018 

.00035 

.00005 

.00102 

.01106 

.00041 

95405 

1 

62 

.00022 

.00016 

.00035 

.00005 

.00102 

.01106 

.00026 

95406 

1 

72 

. 00019 

.00015 

. 00035 

. 00005 

.00102 

.01106 

.00009 

95407 

1 

82 

.00017 

. 00014 

.00035 

.00005 

.00102 

.01106 

.00007 

95408 

1 

92 

. 00015 

.00013 

.00035 

.00005 

.00102 

.01106 

. 00005 

95409 

1 

102 

.00014 

.00012 

.00035 

.00005 

.00102 

. 01106 

. 00005 

95410 

1 

112 

.00012 

.00011 

.00035 

.00005 

.00102 

.01106 

.00004 

95411 

1 

122 

.00011 

.00010 

.00035 

. 00005 

.00102 

.01106 

. 00004 

95412 

1 

132 

.00010 

.00010 

.00035 

.00005 

. 00102 

.01106 

. 00003 

95413 

1 

142 

.00009 

. 00009 

.00035 

.00005 

.00102 

. 01106 

. 00003 

95414 

1 

152 

.00008 

.00008 

.00035 

.00005 

. 00102 

.01106 

.00003 

95415 

1 

162 

.00008 

.00008 

.00035 

.00005 

.00102 

.01106 

.00003 

95416 

1 

172 

.00007 

.00007 

.00035 

.00005 

.00102 

.01106 

.00002 

95417 

1 

182 

.00006 

. 00007 

.00035 

.00005 

.00102 

.01106 

.00002 

95418 

1 

192 

. 00006 

. 00007 

.00035 

.00005 

.00102 

.01106 

.00002 

95419 

1 

202 

. 00005 

. 00006 

.00035 

. 00005 

.00102 

. 01106 

.00002 

.KSTP. 

.NSTP, 

•KTIM. . 

. . QAVE . . . 

EAVE . . 

. . . CAVE . . 

. . . DAVE . . 

. . . PAVE . . 

. . . ENAV . . 

. . . DMAX 

95420 

1 

212 

. 00005 

. 00006 

. 00035 

. 00005 

. 00102 

.01106 

.00002 

95430 

1 

312 

. 00003 

.00004 

. 00035 

. 00005 

.00102 

. 01106 

. 00001 

AIR  DISTRIBUTION  PERFORMANCE  FOR  4.0  CFM  WITH  75  % FREE  AREA  DIFFUSER 
U-DISTRIBUTION  ON  Y-Z  PLAN  I = 6 KSTP=  95436 


1 

2 

3 

4 

1 

. 0000000 

. 0000000 

. 0000000 

.0000000 

2 

.0000000 

-.0377082 

. 0000000 

.0000000 

3 

.0000000 

-.0377082 

-.0377082 

-.0350278 

4 

.0000000 

-.0465862 

-.0465862 

-.0439187 

5 

. 0000000 

-.0248950 

-.0248950 

-.0241430 

6 

.0000000 

-.0120372 

-.0120372 

-.0121700 

7 

.0000000 

-.0042385 

-.0042385 

-.0045329 

8 

.0000000 

-.0020490 

-.0020490 

-.0022703 

9 

.0000000 

-.0016675 

-.0016675 

-.0017640 

10 

.0000000 

-.0008836 

-.0008836 

-.0009005 

11 

.0000000 

-.0008800 

-.0008800 

-.0007864 

12 

.0000000 

-.0004160 

-.0004160 

-.0002405 

13 

.0000000 

.0000699 

. 0000699 

.0003121 

14 

. 0000000 

.0004613 

.0004613 

.0007533 

15 

.0000000 

.0007440 

. 0007440 

.0010655 

16 

.0000000 

.0009741 

.0009741 

.0013044 

17 

. 0000000 

. 0012447 

.0012447 

. 0015627 

99 


18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 


0000000 

.0016338 

.0016338 

.0019175 

0000000 

.0030029 

.0030029 

.0032152 

0000000 

.0052749 

.0052749 

.0053874 

0000000 

.0097016 

.0097016 

.0096809 

0000000 

.0161370 

.0161370 

.0159706 

0000000 

.0259591 

.0259591 

.0256499 

0000000 

.0414892 

.0414892 

.0410592 

0000000 

.0604879 

.0604879 

.0599995 

0000000 

.0698387 

.0698387 

.0693406 

0000000 

.0698387 

.0498844 

.0495286 

6 

7 

8 

9 

0000000 

.0000000 

.0000000 

.0000000 

0000000 

-.0393853 

-.0637311 

-.0401753 

0245346 

-.0551399 

-.0892242 

-.0562459 

0378026 

-.0534110 

-.0625486 

-.0430626 

0267209 

-.0355210 

-.0367339 

-.0252890 

0169687 

-.0225887 

-.0224592 

-.0153645 

0079478 

-.0102730 

-.0087487 

-.0035122 

0043679 

-.0053353 

-.0037557 

.0003382 

0026373 

-.0026147 

-.0008050 

.0027980 

0010775 

-.0005971 

.0012312 

. 0044513 

0002110 

.0007682 

.0028125 

.0059031 

0008196 

.0020826 

.0042299 

.0071837 

0017258 

.0031825 

.0053962 

.0082142 

0024030 

.0039652 

.0061684 

.0087658 

0028276 

.0043950 

.0064729 

.0087156 

0030626 

.0045409 

.0063854 

.0081733 

0032064 

.0045105 

.0060361 

.0073339 

0033374 

.0043904 

.0055335 

. 0063495 

0042511 

.0049662 

.0056770 

. 0060300 

0059023 

.0061839 

. 0063725 

.0062132 

0095149 

.0092611 

.0088313 

.0081019 

0150420 

.0141836 

.0130242 

.0115443 

0239632 

.0224984 

. 0205484 

.0181153 

0387190 

.0367096 

.0339944 

. 0307105 

0572293 

.0545944 

.0511900 

.0471226 

0660153 

.0631779 

.0595933 

.0553454 

0471534 

.0451267 

,0425663 

.0395321 

11 

12 

13 

14 

0000000 

.0000000 

.0000000 

. 0000000 

0260435 

-.0224750 

-.0199974 

-.0181848 

0364612 

-.0314653 

-.0279966 

-.0254590 

0297660 

-.0262754 

-.0238537 

-.0222110 

0211116 

-.0189681 

-.0171322 

-.0162099 

0136742 

-.0144790 

-.0134715 

-.0129946 

0010562 

-.0057046 

-.0072731 

-.0078250 

0064331 

-.0002699 

-.0034730 

-.0048783 

0094734 

.0038978 

-.0001369 

-.0023128 

0109130 

.0061625 

.0021521 

-.0004258 

0116471 

.0073066 

.0038951 

.0012885 

0117415 

.0073349 

.0046673 

.0023201 

0112110 

.0066456 

. 0048718 

.0035413 

0100956 

.0057623 

.0047162 

. 0042750 

0085848 

.0047427 

.0038126 

,0029637 

0069381 

.0036193 

.0024581 

. 0005392 

0053817 

.0025446 

.0011415 

-.0012153 

0041085 

.0016686 

-.0000410 

-.0021425 

0035437 

. 0015516 

-.0000116 

-.0014717 

0033549 

. 0016696 

.0005814 

-.0002378 

0044061 

. 0023308 

.0016724 

. 0015413 

0060022 

.0035121 

.0028110 

.0030482 

0107872 

.0073510 

.0058224 

.0055340 

0214509 

.0167060 

.0138116 

.0125402 

0355210 

.0291609 

.0248333 

.0220781 

0422746 

.0341934 

.0280216 

.0236157 

0301959 

.0244237 

.0200153 

.0168682 

100 


16 

17 

18 

19 

1 

.0000000 

.0000000 

.0000000 

.0000000 

2 

-.0165876 

-.0167902 

-.0174928 

-.0125987 

3 

-.0232228 

-.0235064 

-.0244901 

-.0176383 

4 

-.0218904 

-.0230909 

-.0242375 

-.0184035 

5 

-.0181522 

-.0201583 

-.0217025 

-.0175901 

6 

-.0160853 

-.0183273 

-.0199082 

-.0171033 

7 

-.0123243 

-.0145300 

-.0162169 

-.0148544 

8 

-.0100705 

-.0121004 

-.0137682 

-.0132023 

9 

-.0078026 

-.0095516 

-.0111212 

-.0110079 

10 

-.0059177 

-.0073731 

-.0087869 

-.0088463 

11 

-.0037183 

-.0048389 

-.0059967 

-.0059878 

12 

-.0018536 

-.0028023 

-.0039828 

-.0043651 

13 

.0042161 

.0059216 

.0085380 

.0116575 

14 

.0053066 

.0054078 

.0070759 

. 0089459 

15 

-.0013491 

.0001183 

.0026906 

.0052289 

16 

-.0021199 

.0004753 

.0035959 

.0058337 

17 

-.0007674 

.0021602 

.0052376 

.0067883 

18 

.0005566 

. 0037432 

. 0068490 

. 0077464 

19 

.0020534 

.0053045 

.0085868 

.0089171 

20 

.0031630 

. 0065368 

. 0102890 

.0103000 

21 

.0045949 

.0081643 

. 0126005 

.0123141 

22 

.0069406 

.0110353 

.0160834 

.0153452 

23 

.0087439 

.0135132 

.0188705 

.0181980 

24 

.0141438 

.0177914 

.0220195 

.0213177 

25 

.0218979 

.0237792 

. 0254927 

. 0241146 

26 

.0221965 

.0234468 

.0246224 

.0244043 

27 

.0158545 

.0167476 

.0175873 

.0174315 

AIR  DISTRIBUTION  PERFORMANCE  FOR  4.0 
U-DISTRIBUTION  ON  Z-X  PLAN  J = 


CFM  WITH  75 
6 KSTP= 


% FREE  AREA  DIFFUSER 
95436 


1 

2 

3 

4 

1 

. 0000000 

. 0000000 

.0000000 

.0000000 

2 

. 0000000 

.0000000 

-.0143519 

-.0189411 

3 

.0143518 

. 0000000 

-.0143519 

-.0189411 

4 

.0139656 

.0000000 

-.0139657 

-.0185999 

5 

.0141733 

.0000000 

-.0141734 

-.0191325 

6 

.0169746 

.0000000 

-.0169747 

-.0226847 

7 

.0172213 

.0000000 

-.0172213 

-.0246470 

8 

.0095349 

. 0000000 

-.0095349 

-.0167507 

9 

. 0006130 

. 0000000 

-.0006130 

-.0053793 

10 

-.0013917 

. 0000000 

.0013917 

-.0002593 

11 

.0033576 

.0000000 

-.0033576 

-.0067365 

12 

.0038058 

. 0000000 

-.0038058 

-.0074607 

13 

. 0035006 

.0000000 

-.0035006 

-.0069066 

14 

.0033552 

. 0000000 

-.0033552 

-.0066313 

15 

.0036080 

. 0000000 

-.0036080 

-.0070847 

16 

.0046765 

.0000000 

-.0046765 

-.0087982 

17 

.0056995 

.0000000 

-.0056995 

-.0104180 

18 

.0073451 

. 0000000 

-.0073451 

-.0118308 

19 

.0020610 

. 0000000 

-.0020610 

-.0071204 

20 

.0000000 

. 0000000 

-.0014721 

-.0050859 

6 

7 

8 

9 

1 

. 0000000 

. 0000000 

. 0000000 

.0000000 

2 

-.0120372 

-.0047630 

.0023117 

.0051375 

3 

-.0120372 

-.0047630 

.0023117 

. 0051375 

4 

-.0121700 

-.0052184 

.0015532 

.0041970 

5 

-.0133087 

-.0067412 

-.0003866 

.0019947 

6 

-.0169687 

-.0105542 

-.0046391 

-.0027094 

7 

-.0225887 

-.0179371 

-.0141078 

-.0137871 

8 

-.0224592 

-.0223625 

-.0222611 

-.0239644 

9 

-.0153645 

-.0191911 

-.0227698 

-.0269146 

10 

-.0086966 

-.0143135 

-.0202919 

-.0261743 

11 

-.0136742 

-.0172778 

-.0209608 

-.0245591 

12 

-.0144790 

-.0178476 

-.0210509 

-.0240471 

13 

-.0134715 

-.0166370 

-.0196965 

-.0226228 

101 


14 

15 

16 

17 

18 

19 

20 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 


-.0129946 

-.0160980 

-.0191283 

-.0220636 

-.0137529 

-.0169653 

-.0200852 

-.0230994 

-.0160853 

-.0194225 

-.0226109 

-.0256702 

-.0183273 

-.0218525 

-.0251715 

-.0283179 

-.0199082 

-.0236401 

-.0271297 

-.0303517 

-.0171033 

-.0215231 

-.0255427 

-.0291806 

-.0122165 

-.0153735 

-.0182447 

-.0208431 

11 

12 

13 

14 

.0000000 

.0000000 

.0000000 

.0000000 

-.0430232 

-.0676554 

-.0620071 

-.0582557 

-.0430232 

-.0676554 

-.0620071 

-.0582557 

-.0430970 

-.0662431 

-.0612462 

-.0575953 

-.0436360 

-.0636396 

-.0598391 

-.0564032 

-.0452980 

-.0604394 

-.0579815 

-.0549010 

-.0478742 

-.0570141 

-.0558599 

-.0532921 

-.0493298 

-.0534254 

-.0536418 

-.0517405 

-.0462343 

-.0502044 

-.0515229 

-.0503724 

-.0406483 

-.0467014 

-.0491549 

-.0489710 

-.0359153 

-.0436505 

-.0471309 

-.0480229 

-.0337168 

-.0414247 

-.0456781 

-.0477307 

-.0326763 

-.0407759 

-.0456367 

-.0485812 

-.0324829 

-.0413402 

-.0468901 

-.0503614 

-.0337677 

-.0430844 

-.0495197 

-.0535081 

-.0363246 

-.0458313 

-.0525078 

-.0568586 

-.0389054 

-.0487159 

-.0556288 

-.0601535 

-.0411802 

-.0513815 

-.0586059 

-.0633899 

-.0412297 

-.0521806 

-.0599983 

-.0653032 

-.0294495 

-.0372716 

-.0428556  ‘ 

-.0466448 

16 

17 

18 

19 

. 0000000 

.0000000 

.0000000 

.0000000 

-.0493617 

-.0468528 

-.0506302 

-.0586866 

-.0493617 

-.0468528 

-.0506302 

-.0586866 

-.0483445 

-.0452245 

-.0483374 

-.0555754 

-.0467976 

-.0429649 

-.0452591 

-.0514649 

-.0452741 

-.0410919 

-.0426844 

-.0479619 

-.0441806 

-.0400958 

-.0412677 

-.0456113 

-.0436704 

-.0400289 

-.0409938 

-.0444634 

-.0437303 

-.0407694 

-.0415434 

-.0442163 

-.0443841 

-.0423755 

-.0429024 

- . 0446254 

-.0458282 

-.0447681 

-.0450112 

-.0457849 

-.0480768 

-.0477011 

-.0475900 

-.0474768 

-.0506147 

-.0504006 

-.0498635 

-.0490515 

-.0530226 

-.0525912 

-.0516393 

-.0502672 

-.0561365 

-.0552556 

-.0538500 

-.0519352 

-.0598234 

-.0586303 

-.0568874 

-.0545585 

-.0633443 

-.0622321 

-.0603653 

-.0577506 

-.0670155 

-.0660723 

-.0643082 

-.0617878 

-.0699569 

-.0695920 

-.0682784 

-.0661509 

-.0499688 

-.0497082 

-.0487699 

-.0472503 

21 

22 

23 

24 

.0000000 

.0000000 

.0000000 

.0000000 

-.0767805 

-.0807695 

-.0783228 

-.0692598 

-.0767805 

-.0807695 

-.0783228 

-.0692598 

-.0723167 

-.0758911 

-.0732261 

-.0641063 

-.0665526 

-.0697794 

-.0671630 

-.0584657 

-.0612425 

-.0641043 

-.0616782 

-.0536591 

-.0568445 

-.0591846 

-.0569485 

-.0496656 

-.0533945 

-.0550453 

-.0529241 

-.0463195 

-.0508372 

-.0517373 

-.0495989 

-.0435272 

-.0486759 

-.0486998 

-.0464117 

-.0407859 

-.0471100 

-.0462381 

-.0436657 

-.0382760 

-.0461025 

-.0443560 

-.0414491 

-.0361796 

-.0457402 

-.0431012 

-.0397690 

-.0344305 
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-.0457102 

-.0462220 

-.0478530 

-.0501886 

-.0539036 

-.0590533 

-.0421806 


-.0424360 

-.0423204 

-.0434069 

-.0452078 

-.0484036 

-.0537877 

-.0384195 


-.0385978 

-.0378543 

-.0383007 

-.0394632 

-.0419872 

-.0470343 

-.0335957 


-.0330392 

-.0318723 

-.0315731 

-.0319304 

-.0334129 

-.0371121 

-.0265084 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 


26 

.0000000 

-.0389216 

-.0389216 

-.0344700 

-.0307137 

-.0280947 

-.0261493 

-.0245984 

-.0233050 

-.0220860 

-.0208452 

-.0199020 

-.0189083 

-.0178994 

-.0167708 

-.0158262 

-.0155819 

-.0159512 

-.0170482 

-.0121772 


27 

.0000000 

-.0211550 

-.0211550 

-.0179067 

-.0156498 

-.0143614 

-.0134493 

-.0127067 

-.0120862 

-.0115610 

-.0109524 

-.0105461 

-.0101347 

-.0096108 

-.0089472 

-.0079965 

-.0078870 

-.0081197 

-.0091029 

-.0065020 


28 

.0000000 
.0000000 
.0000000 
.0000000 
.0000000 
.0000000 
.0000000 
.0000000 
.0000000 
.0000000 
.0000000 
.0000000 
. 0000000 
. 0000000 
.0000000 
.0000000 
, 0000000 
.0000000 
.0000000 
.0000000 


29 

.0000000 
.0161963 
.0211550 
.0179067 
.0156498 
. 0143614 
.0134493 
.0127067 
.0120862 
.0115610 
. 0109524 
.0105461 
. 0101347 
.0096108 
.0089472 
.0079965 
.0078870 
.0081197 
.0091029 
.0000000 


AIR  distribution  performance  for  4.0 
U-DISTRIBUTION  ON  X-Y  PLAN  K = 


CFM  WITH  75  % FREE  AREA  DIFFUSER 
6 KSTP=  95436 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
29 


1 

0000000 
0000000 
0000000 
0000000 
0000000 
, 0000000 
,0000000 
. 0000000 
.0000000 
.0000000 
.0000000 
. 0000000 
.0000000 
.0000000 
.0000000 
. 0000000 
.0000000 
.0000000 
.0000000 
. 0000000 
.0000000 
.0000000 
. 0000000 
. 0000000 
. 0000000 
.0000000 
.0000000 
. 0000000 
.0000000 


2 

.2623130 
. 0000000 
-.0295275 
. 0000000 
.0000000 
. 0000000 
.0000000 
. 0000000 
-.0351019 
-.0904742 
-.0800154 
-.0637690 
-.0569287 
-.0517023 
-.0451473 
-.0330946 
-.0011071 
.0000000 
.0000000 
.0000000 
.0000000 
.0000000 
-.0999543 
-.0674200 
-.0471658 
-.0300123 
-.0149410 
. 0000000 
-.0030302 


3 

.0413388 

.0000000 

-.0413389 

-.1863700 

-.0893838 

-.0245346 

.0365729 

.1219318 

-.0491430 

-.1266649 

-.1120225 

-.0892773 

-.0797009 

-.0723838 

-.0632068 

-.0463328 

-.0015500 

.0884159 

-.0051592 

-.0634966 

-.1231590 

-.2201474 

-.1399371 

-.0943888 

-.0660326 

-.0420175 

-.0209175 

.0000000 

.0209175 


4 

.0682832 
.0000000 
-.0682832 
-.0923136 
-.0675452 
-.0378026 
- .0086253 
.0152867 
-.0044251 
-.0768795 
-.0926885 
-.0814231 
-.0737525 
-.0666816 
-.0573831 
-.0420997 
-.0154425 
-'.  0023577 
-.0279787 
-.0609481 
-.0950417 
-.1250677 
-.1090776 
-.0839412 
-.0612670 
-.0399037 
-.0203981 
.0000000 
. 0203981 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

1 

2 

3 

4 

5 


6 

7 

8 

9 

. 0169746 

.0062654 

.0034033 

. 0018757 

.0000000 

. 0000000 

.0000000 

. 0000000 

-.0169747 

-.0062655 

-.0034033 

-.0018757 

-.0226847 

-.0088192 

-.0048181 

-.0027221 

-.0216966 

-.0091154 

-.0050037 

-.0029045 

-.0169687 

-.0079478 

-.0043679 

-.0026373 

-.0105542 

-.0060373 

-.0033300 

-.0021535 

-.0046391 

-.0042321 

-.0023977 

-.0017228 

-.0027094 

-.0036557 

-.0021552 

-.0016235 

-.0188261 

-.0090256 

-.0050731 

-.0030244 

-.0452980 

-.0212590 

-.0122917 

-.0067926 

-.0604394 

-.0479988 

-.0325932 

-.0199239 

-.0579815 

-.0484130 

-.0382537 

-.0299496 

-.0549010 

-.0479031 

-.0396694 

-.0324758 

-.0506275 

-.0466791 

-.0405060 

-.0340801 

-.0452741 

-.0454214 

-.0411546 

-.0354510 

-.0410919 

-.0451599 

-.0418553 

-.0364824 

-.0426844 

-.0464080 

-.0423121 

-.0368234 

-.0479619 

-.0484474 

-.0427712 

-.0369257 

-.0550212 

-.0505755 

-.0428940 

-.0366279 

-.0612425 

-.0518395 

-.0423601 

-.0357740 

-.0641043 

-.0513618 

-.0408655 

-.0342133 

-.0616782 

-.0485998 

-.0381776 

-.0318219 

-.0536591 

-.0425034 

-.0332716 

-.0276421 

-.0420129 

-.0336599 

-.0264224 

-.0219452 

-.0280947 

-.0226892 

-.0178863 

-.0148572 

-.0143614 

-.0116528 

-.0092759 

-.0077782 

.0000000 

.0000000 

.0000000 

.0000000 

.0143614 

.0116528 

.0092759 

.0077782 

11 

12 

13 

14 

.0005358 

.0001328 

-.0001890 

-.0004303 

.0000000 

.0000000 

. 0000000 

.0000000 

-.0005358 

-.0001328 

.0001890 

.0004303 

-.0006596 

. 0000330 

.0006053 

. 0010341 

-.0005185 

.0003770 

.0011407 

.0017123 

-.0002110 

.0008196 

.0017258 

, 0024030 

.0001620 

.0012859 

.0023010 

.0030570 

.0004986 

.0017060 

.0028151 

.0036361 

.0007073 

.0020204 

.0032276 

.0041118 

.0005619 

.0022320 

.0036889 

. 0047176 

-.0005798 

. 0016971 

.0035362 

. 0047891 

-.0061647 

-.0017631 

.0013698 

. 0033456 

-.0132152 

-.0066573 

-.0020812 

.0006973 

-.0185706 

-.0114144 

-.0057099 

-.0023842 

-.0214553 

-.0147495 

-.0091768 

-.0058515 

-.0234342 

-.0173847 

-.0123001 

-.0094541 

-.0250438 

-.0195999 

-.0154380 

-.0131359 

-.0257588 

-.0207091 

-.0170536 

-.0151127 

-.0262188 

-.0216071 

-.0184264 

-.0167961 

-.0263573 

-.0222080 

-.0194502 

-.0180155 

-.0260775 

-.0224065 

-.0200201 

-.0187112 

-.0252682 

-.0220928 

-.0200493 

-.0188541 

-.0238060 

-.0211240 

-.0194022 

-.0183308 

-.0209676 

-.0188650 

-.0174932 

-.0165722 

-.0168522 

-.0152915 

-.0142214 

-.0134619 

-.0114865 

-.0104264 

-.0096257 

-.0090030 

-.0059559 

-.0053345 

-.0048330 

-.0044243 

.0000000 

.0000000 

.0000000 

.0000000 

.0059559 

.0053345 

.0048330 

.0044243 

16 

17 

18 

19 

-.0007094 

-.0007936 

-.0008691 

-.0011439 

.0000000 

.0000000 

. 0000000 

. 0000000 

.0007094 

.0007936 

.0008691 

. 0011439 

. 0015009 

.0016258 

.0017307 

.0022378 

. 0023007 

.0024423 

.0025618 

.0032796 

104 


6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 


.0030626 
.0037539 
.0043530 
. 0048466 
.0055051 
.0057255 
.0047960 
.0026867 
-.0001864 
-.0037302 
-.0077625 
-.0117589 
-.0135814 
-.0149137 
-.0156920 
-.0160745 
-.0160672 
-.0156388 
-.0143619 
-.0118398 
-.0078844 
-.0038974 
. 0000000 
.0038974 


. 0032064 
.0038927 
.0044852 
.0049752 
.0056418 
.0059043 
.0051502 
.0031820 
.0003219 
-.0032715 
-.0072525 
-.0110287 
-.0126120 
-.0135688 
-.0139415 
-.0139083 
-.0135093 
-.0130527 
-.0122953 
-.0105478 
-.0071213 
-.0036419 
.0000000 
.0036419 


.0033374 
. 0040395 
.0046566 
.0051824 
.0059619 
.0063787 
.0061737 
.0046870 
.0021556 
-.0012088 
-.0050203 
-.0088254 
-.0108199 
-.0124143 
-.0133302 
-.0121489 
-.0108362 
-.0097324 
-.0089689 
-.0081094 
-.0054106 
-.0028785 
. 0000000 
.0028785 


. 0042511 
.0051371 
.0059271 
.0066144 
.0077023 
.0083698 
.0088280 
. 0078003 
.0055847 
.0025256 
-.0007740 
-.0035618 
-.0048595 
-.0059112 
-.0069690 
-.0043359 
-.0029365 
-.0021038 
-.0017612 
-.0024978 
-.0005081 
-.0003211 
. 0000000 
.0003211 


21 

22 

-.0025895 

-.0040887 

. 0000000 

. 0000000 

.0025895 

.0040887 

.0050083 

.0079448 

.0073153 

.0115873 

.0095149 

.0150420 

. 0115972 

. 0183004 

.0135495 

.0213436 

.0153580 

.0241436 

. 0186195 

.0292075 

.0211797 

.0330090 

.0263722 

.0415949 

. 0288792 

.0462282 

.0289096 

.0473097 

.0268660 

. 0460967 

. 0238451 

. 0446482 

. 0233297 

.0422119 

.0250556 

. 0410944 

. 0306541 

.0457375 

. 0354897 

.0519016 

.0327376 

.0285513 

.0264564 

.0144236 

. 0188709 

.0071698 

. 0108533 

.0044634 

. 0070673 

. 0046229 

.0071276 

.0047500 

.0051603 

. 0031460 

.0000000 

.0000000 

-.0051603 

-.0031460 

23 

24 

0065256 

-.0107627 

0000000 

. 0000000 

0065256 

.0107627 

0127086 

.0208133 

0185025 

.0301114 

0239632 

.0387190 

0290885 

.0467969 

0338561 

.0543211 

0382224 

.0612376 

0460637 

.0737017 

0519222 

. 0840029 

0652931 

.1033870 

0722531 

.1163251 

.0753003 

.1230175 

, 0762747 

. 1239657 

,0742648 

.1194536 

.0661820 

.1055225 

.0569059 

.0876882 

. 0282287 

.0643205 

.0000000 

. 0000000 

. 0203936 

.0650249 

.0103025 

. 0518695 

.0051213 

.0402276 

.0031881 

. 0268177 

.0033021 

.0143454 

. 0033928 

. 0040101 

.0022471 

-.0009860 

. 0000000 

. 0000000 

.0023519 

-.0111387 

26 

0125194 

0000000 

0125194 

0294811 

0477565 

0660153 

0837382 

1008150 

1174010 

1459392 

1729971 


27 

. 0000000 
.0000000 
. 0089423 
.0210578 
.0341115 
. 0471534 
.0598125 
.0720101 
.0838572 
.1042414 
.1235683 
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12 

.2045285 

.1460906 

13 

.2198451 

.1570310 

14 

.2256579 

.1611829 

15 

.2249453 

.1606739 

16 

.2184400 

.1560273 

17 

.2061886 

.1472764 

18 

.1975775 

.1411257 

19 

.1865053 

.1332170 

20 

.1866410 

.1333140 

21 

.1763016 

.1259287 

22 

.1614625 

.1153294 

23 

.1438662 

.1027608 

24 

.1201745 

.0858382 

25 

.0940292 

.0671632 

26 

.0648474 

.0463192 

27 

.0346386 

.0247417 

28 

.0000000 

.0000000 

29 

-.0346387 

.0000000 

SIMILAR  OUTPUT  FOR  V,  W,  P,  TEMPERATURE,  K and  £ 


Appendix  B.  User  Guide  oft  CONTAM3:  3-Dimensional  Contaminant  Dis- 
persal Code 

B.l  General  Descripton 

The  theory  described  in  Chapter  3 for  scalar  variables  has  been  implemented  in  a computer 
program  call  CONTAM3.  Thus  code  is  run  after  a satisfactory  flow  field  has  been  obtained 
using  EXACT3.  The  general  steps  to  run  CONTAM3  are: 

1.  Rename  the  output  file  UNIT21  of  EXACT3  as  FLOW.DAT 

2.  Prepared  an  program  description  file,  for  example  DataFile. 

3.  Run  the  program:  CONTAM3  <DataFile 

The  program  CONTAM3  will  produced  a binary  outfile  UNIT24.  If  it  is  desired  to  continue 
the  calculation,  UNIT24  should  be  copied  to  or  renamed  UNIT23  and  the  initial  control 
parameter  INIC  (see  below)  set  to  2. 

B.2  Description  of  Input  File  of  CONTAM# 

The  following  is  the  input  file  for  the  problem  presented  in  Chapter  4.4  : 
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1 

Test  fo 

r CONTAM3 

- Practical 

Application 

2 

75500 

36000 

2 

10 

3 

0.010 

4 

1 . OE- 

5 

0.7 

5 

14 

3 

3 

6 

17 

7 

1 

12 

15 

2 

3 

3 

5 

0 

0 

3 

3 

11 

3 

2 

3 

18 

0 

0 

3 

16 

23 

3 

2 

3 

18 

0 

0 

3 

12 

15 

3 

2 

6 

18 

0 

0 

2 

3 

2 

3 

25 

3 

18 

0 

0 

3 

3 

19 

25 

26 

3 

18 

0 

0 

3 

20 

23 

25 

26 

7 

18 

0 

0 

3 

3 

11 

3 

2 

3 

18 

0 

0 

3 

12 

15 

3 

2 

6 

18 

0 

0 

3 

16 

23 

3 

2 

3 

18 

0 

0 

4 

3 

4 

3 

25 

18 

19 

0 

0 

4 

5 

8 

3 

20 

18 

19 

0 

.0 

4 

5 

8 

21 

23 

18 

19 

0 

.0 

4 

9 

23 

3 

25 

18 

19 

0 

0 

2 

19 

20 

17 

25 

3 

6 

0 

0 

4 

20 

23 

17 

25 

7 

6 

0 

0 

3 

20 

23 

16 

17 

3 

6 

0 

.0 

8 

1 

9 

20 

23 

17  25 

3 

6 

10 

1 

11 

23 

23 

25 

25 

7 

7 

0.9542 

Input  information  is  written  with  the  following  format  and  order. 
1 Comment  line 
format:  A80 
example: 


. . .1 2 3.  . .4 .5.  . . . 6 7 

Test  for  CONTAM3  - Practical  Application 

*this  comment  is  printed  on  top  of  LP  image  listing  and  the  listing  of  each  dependent  variable. 

2 calculation  condition  1 

stored  at:  KSTM,  MAXT,  INIC,  NPRINT 

format:  free 

example: 

75500  36000  2 10 
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*KSTM  maximum  time  iteration  steps 

If  accumulated  time  iteration  counter  KSTP  exceeds  KSTM,  time  iteration  is 
terminated  and  subroutine  OUTPUT  is  processed. 

*MAXT  maximum  CPU  time  in  seconds. 

Accumulated  CPU  time  is  measured  once  each  time  iteration  and  if  it  exceeds  MAXT,  time 
iteration  is  terminated  and  subroutine  OUTPUT  is  processed. 

Job  termination  is,  therefore,  controlled  by  either  KSTM  or  MAXT  except  divergence  occurs. 

*INIC  Input/output  unformatted  file  controller. 

For  INIC  > 2,  initial  flow  field  is  assumed  to  be  stored  as  an  unformatted  permanent 

file  on  Cyber  855,  otherwise,  calculation  is  started  from  0 flow  field  v/hich  is  generated 
internally  by  the  subroutine  ARAIN. 

For  INIC  < 2,  final  flow  field  is  stored  as  a new  unformatted  permanent  file  on  Cyber 
855,  otherwise,  it  is  lost  as  soon  as  the  job  is  terminated. 

Recommended  value 

1 to  generate  initial  flow  field  using  small  MAXT  or  KSTM  value. 

2 to  resume  interrupted  calculation 

NPRINT  Print  control  parameter.  Data  will  be  printed  to  file  every  NPRINT  iterations. 
This  is  used  to  keep  the  output  file  size  low. 

3  Time  Step 

DT  non-dimensional  time  step 

DT  is  chosen  from  the  stabillity  criteria  for  both  convection  and  diffusion 
terms. 


stored  at:  DT 

format:  free 
example: 

0.010 

4 calculation  condition  2 

stored  at:  HPE,  ZSC 

format:  free 
example: 

l.OE-5  0.7 

*HPE  Non-dimensional  diffusion  coefficinent 

*ZSC  constant  C3  used  in  equation  (2-47) 

5 image  listing  pointer 

stored  at  array:  ICON 
format:  free 
example: 

6,  6,  6 . 
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*Spatial  variations  of  all  dependent  variables  is  given  as  a LP  image  listing  for  Y-Z  Z-X,  X-Y 
plane  at  locations  where  this  pointer  specifies. 

For  instance,  (14,  2,  2)  means  that  LP  listing  is  given  for  Y-Z  plane  at  1=14,  Z-X  plane  at 
J=3  and  X-Y  plane  at  K=3. 

6 number  of  obstacles 

stored  at:  NIN 
format:  free 
example: 

1 

*NIN  is  the  number  of  given  boundary  conditions  following  this  line. 

7 obstacle  data 
stored  at  arrays:  IIN 
format:  free 

20  23  17  25  3 6 

8 number  of  boundary  conditons 

stored  at:  NIN 
format:  free 
example: 

17 

*NIN  is  the  number  of  given  boundary  conditions  following  this  line. 

9 boundardv  condition  data 

stored  at  arrays:  IIN,  SERV 


format:  free 

3 3 

11 

3 

2 

3 

18 

0.0 

3 

16 

23 

3 

2 

3 

18 

0.0 

3 

12 

15 

3 

2 

6 

18 

0.0 

2 

3 

2 

3 

25 

3 

18 

0.0 

3 

3 

19 

25 

26 

3 

18 

0.0 

3 

20 

23 

25 

26 

7 

18 

0.0 

3 

3 

11 

3 

2 

3 

18 

0.0 

3 

12 

15 

3 

2 

6 

18 

0.0 

3 

16 

23 

3 

2 

3 

18 

0.0 

4 

3 

4 

3 

25 

18 

19 

0.0 

4 

5 

8 

3 

20 

18 

19 

0.0 

4 

5 

8 

21 

23 

18 

19 

0.0 

4 

9 

23 

3 

25 

18 

19 

0.0 

2 

19 

20 

17 

25 

3 

6 

0.0 

4 

20 

23 

17 

25 

7 

6 

0.0 

3 

20 

23 

16 

17 

3 

6 

0.0 

*Default  boundary  condition  employed  in  the  "CONTAM3"  code  is  the  symmetric  wall 

condition  described  in  the  next  subsection. 

*Since  boundary  condition  data  are  referenced  in  regular  sequence,  earlier  conditions 
including  default  boundary  condition  may  be  overwritten  by  the  latter  one. 

*Boundary  condition  data  consist  of  boundary  condition  number,  boundary  location  and 
boundary  parameter. 

General  format  of  boundary  condition  data  is  given  as  follows. 
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Where  in  is  the  boundary  condition  number  II,  12,  Jl,  J2,  Kl,  K2  are  the  boundary  location 
in  X,  Y and  Z-direction  in  cell  number,  SEV  is  the  boundary  parameter. 

*Boundary  condition  data  for  in=  1 to  6 are  used  to  impose  discret  boundary  condition  to 
each  dependent  variable  with  the  location  1=11  to  12,  J=J1  to  J2,  K=K1  to  K2  in  cell  number 


lU 

function 

effect 

1 

specify  concentration 

Ca  J,K)  = SERV 

1=11  to  12,  J Jl  to  J2,  K=  Kl  to  K2 

2 

Specify  wall  boundary 
normal  to  X axis 

between  1=11  and  12 
forJ=  Jl  to  J2,  K=K1  toK2 

11  is  a terminal  real  cell  and  12  is  an 
adjacent  dummy  cell  numbrt 

3 

specify  wall  boundary 
normal  to  Y axis 

between  J=J1  and  J2 
for  1=11  to  12,  K=K1  toK2 

Jl  is  a terminal  real  cell  and  J2  is  an 
adjacent  dummy  cell  number 

4 

specify  wall  boundary 
normal  to  Z axis 

between  K=K1  and  K2 
for  1=11  to  12,  J=  Jl  toJ2 

11  is  a terminal  real  cell  and  12  is  an 
adjacent  dummy  cell  number 

*Boundary  conditions  for  in=  5 to  7 are  prepared  to  set  contaminant  flux  across  the  wall 
boundary  appearing  in  equation  3-47.  Thermal  flux,  SEV,  takes  positive  value  when  its 
direction  is  from  dummy  cell  to  real  cell. 

in 

function 

boundary  location 

5 

specify  wall  boundary 
normal  to  X axis 

same  as  III  = 2 

6 

specify  wall  boundary 
norm^  to  Y axis 

same  as  III  = 3 

7 specify  wall  boundary  same  as  IH  = 4 

normd  to  Z axis 

*Boundary  conditions  for  in=  8 to  10  are  used  to  set  local  flux  transfer  coefficients  defined 
in  equation  3-48. 

Concentration  must  be  specified  using  111=1  boundary  condition  at  the  wall  adjacent  dummy 

cell  before  this  line  appears. 

Non-dimensional  flux  transfer  coefficient  is  stored  at  SEV. 


in 

fynetiQtt 

boundary  location 

8 

specify  wall  boundary 
normal  to  X axis 

same  as  in=  2 

9 

specify  wall  boundary 
normal  to  Y axis 

same  as  in=  3 

10 

specify  wall  boundary 
normad  to  Z axis 

same  as  in=  4 
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10  number  of  generarion  rate  sources 
stored  at:  NSOURCES 

format:  free 
example: 

1 

♦NSOURCES  is  the  number  of  given  generation  rates  following  this  line. 

11  generation  rate  source  data 

stored  at  arrays:  IIN,  S 
format:  free 

20  23  17  25  3 6 

The  each  generation  source  rate  is  set: 

H(I,J,K)  = SERV  for  1=  II  to  12,  J=  J1  to  J2  and  K=  K1  to  K2 

B.3  Listing  of  Contaminant  Dispersal  Code 


c 

C •**•*•*•**********.*.****•**•*•******* 

C “ CONTAM3  3D  CONTAMINANT  DISPERSAL 


C EXPLICIT  TIME-MARCHING  ARGORITHM  FOR 

C 3 DIMENSIONAL  CONTAMINANT  DISPERSAL 

C 

C THEORY  BY  T . KURABUTI , 1987 

C CODE  REVISED  BY  R.  GROT  1988  TO  REDUCE  STORAGE 

REQUIREMENTS 

C 


c 

INPUT 

DATA  FORMAT 

■6 

c 

TITLE 

c 

KSTM 

MAXT 

INIC 

c 

DT 

c 

HPE 

SC 

c 

11 

J1 

K1 

c 

NIN 

c 

III 

11 

12 

J1 

J2 

K1 

K2 

SEV 

c 

NOBS 

c 

11 

12 

J1 

J2 

K1 

K2 

C 

NSOURCES 

c 

11 

12 

J1 

J2 

K1 

K2 

S 

6 7 — 

C 

C 

C*****MAIN 

C 

PROGRAM  MAIN 
C 

C»****DECLARATION  OF  COMMON 

C 

C 

PARAMETER  ( L-24  , M-26,  N-1 9) 

C 

COMMON  /CONTR/ 

1 TITLE(20) 

2, HPE  .DT 

3,  KSTM, INIC,MAXT, VOLM, KSTP 

4, ZCD  ,ZSC  ,H2SC 
C 

COMMON  /BCON/ 

1 DX(L-H)  ,DY(M+1)  ,D2  (N+1)  , NOBS,  lOBdOO,  6) 

2,NIN  , IIN (100,  7) ,UIN(100) , NSOURCES, ISOUR- 
CE(100,6),S(100) 

C 

COMMON 

2 U (L,M,N),V  (L,M,N),W  (L,M,N) 

3,D  (L,M. N) , CFX(L,M, N) 

5, -C  (L,M,N)  ,CC{L.M.N) 

7,XD  (L),YD  (M),2D  (N) 


8, HX  (L),HY  (M),HZ  (N) 

9, XIP (L) , YIP (M) ,2IP (N) 

C 

C 

COMMON  /SCAL/  ICON (3) . NPRINT 
C 
C 

OPEN  (10,FILE-'CONTAM3.OUT'  ) 

C 

C*****ARRAY  INITIALIZATION 
C 

CALL  ARAIN 
C 

C*****DATA  INITIALIZATION 
C 

CALL  DATAIN 
C 

IF  { INIC  .LE.  1 ) GO  TO  100 
C 

OPEN  (24,FILE-'UNIT24' , FORM-' UNFORMATTED' ) 

READ(24)  C,KSTP 
CLOSE(24) 

C 

100  CONTINUE 
C 

C*****SOLVE  CONTAMINANT  DISPERSAL  EQUATIONS 
C 

CALL  SOLVEC 
C 

IF  ( INIC  .EQ.  0 ) GO  TO  200 
IF  ( INIC  .EQ.  3 ) GO  TO  200 
C 

OPEN  (23,FILE-'UNIT23' , FORM-' UNFORMATTED' ) 
WRITE(23)  C,KSTP 
CLOSE (23) 

C 

200  CONTINUE 
C 

C**»**jOB  TERMINATION 
C 

CALL  OUTPUT 
C 

STOP 

END 

SUBROUTINE  DATAIN 
C 

C*»***DECRALATION  OF  COMMON 
C 
C 
C 

PARAMETER  (L-24. M-26, N-1 9) 

C 

COMMON  /CONTR/ 

1 TITLE(20) 

2, HPE  ,DT 

3,  KSTM, INIC, MAXT, VOLM, KSTP 

4, ZCD  ,ZSC  ,HZSC 
C 

COMMON  /BCON/ 

1 DX(L+1)  ,DY(M+1)  ,DZ  (N+1)  . NOBS,  lOBdOO,  6) 

2,  NIN  .IIN(100.7),  UINdOO)  .NSOURCES,  ISOUR- 
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(L,M, N) 


CEdOO,  6)  ,S  (100) 

C 

COMMON 

2 U (L.M,N)  ,V  (L,M,N)  ,W 
3,D  (L,M,N)  ,CFX(L,M,N) 

5,C  (L,M.N)  ,CC(L.M,N) 

7, XD  (D.YD  (M),ZD  (N) 

8, HX  (L),HY  (M),HZ  (N) 

9, XIP (L) , YIP (M) , ZIP (N) 

C 

C 

COMMON  /SCAL/  ICON (3) , NPRINT 
C 

C****«dATA  INPUT 
C 

READ(5,100)  TITLE 

WRITE(6,600)  TITLE 

WRITEdO,  600)  TITLE 

READ(5, •)  KSTM,MAXT.INIC,NPRINT 

IF(NPRINT.LE.O)  NPRINT  - 0 

WRITE(6,610)  KSTM,MAXT. INIC  , NPRINT 

WRITEdO.610)  KSTM,MAXT,  INIC  , NPRINT 

READ (5.*)  DT 

WRITE(6,620)  DT 

WRITEd0,620)  DT 

READ(5,*)  HPE,  ZSC 

WRITE(6, 630)  HPE,ZSC 

WRITE (10, 630)  HPE, ZSC 

READ (5. *)  (ICON (I) , 1-1,3) 

WRITE (6, 650)  (ICON (I) , 1-1,3) 


WRITE(6, 670) 
WRITE (10, 670) 
DO  50  I-l,NOBS 
WRITE(6, 671) 
WRITE(10,671) 
50  CONTINUE 
55  CONTINUE 


(IOB(I, J) . J-1, 6) 
(lOBd,  J)  , J-1, 6) 


CONTAMINANT  SOURCES 

READ (5,*)  NSOURCES 
IF (NSOURCES . NE . 0 ) THEN 
DO  25  I-l, NSOURCES 

25  READ(5,»)  ( ISOURCE ( I , J) , J-1 . 6) , S (I ) 

END  IF 


►INITIAL  CALCULATION  1 


VOLM  - (L-3)  • (M-3)  * (N-3) 
VOLM  -1.0/  VOLM 


HZSC  - 1.0  / ZSC 
•OUTPUT  OF  INITIAL  DATA 


100  FORMAT  (20A4  ) 

110  FORMAT  (4110  ) 

130  FORMAT  ( 6I5,F10.0) 
120  FORMAT  ( 7F10.0  ) 


140  FORMAT  ( 3110 
150  FORMAT  ( 110 
160  FORMAT  ( 7l  5 
170  FORMAT  ( 6110 
180  FORMAT  ( 6110 


,F10.0  ) 


C 

C 


•WRITE 


600  FORMAT  (IH  ////IH  , 20X, 20A4 , 1 OX//// ) 


’,115/ 


610  FORMAT  ( 

1 

NO,-' , 115/ 

3 

(SEC. )■ 

4 

CONTROL- 
5 

-'  , 115  ) 

C 

620  FORMAT  ( 

6 

DIVISION-'  ,F15.7/) 
630  FORMAT  ( 


, 115/ 

, IH 


IH  ,10X,'KSTM; TIME  ITERATION  MAX 

, IH  ,10X,'MAXT;. CPU  TIME  MAX 

,1H  ,10X,'INIC: INITIAL  FILE  DATA 

lOX, 'NPRINT: PRINT  CONTROL 


IH  ,10X,'DT 


WRITE (10. 650)  (ICON(I) , 1-1,3) 

1 

IH  ,10X,'HPE 

c 

' , 

F15.7/ 

c 

7 

,1H  ,10X,'2SC 

c* 

• • « 

•BOUNDARY  CONDITION  INPUT 

' , 

F15.7/  ) 

c 

C 

READ (5,*)  NIN 

c 

DO  10  I-l, NIN 

650  FORMAT 

(IH 

, lOX, ' •••••DATA  OUTPUT  POINT**^*^' 

10 

READ(5,*)  (IIN(I,J),J-1,7),UIN(I) 

1 

. lOX, ' (' , 110, ' , ' , 110, ' , ' , 110, 

c 

// 

) 

WRITE(6, 660) 

c 

WRITEd0,660) 

660  FORMAT  ( 

IH  , lOX, ' •••••BOUNDARY  CONDITION*^' 

DO  40  I-l, NIN 

/ 

WRITE (6, 661)  (IIN(I, J) , J-1. 7) ,UIN(I) 

1 

' . 

. .NOB 11 12 Jl' 

WRITE  (10,  661)  (IINd,  J)  , J-1,  7)  , UIN(I) 

2 

, ' . 

. . .J2 K1 K2 SPV'  ) 

40 

CONTINUE 

661  FORMAT 

(IH 

, 7I6,F12.5) 

c 

c 

c 

670  FORMAT 

(IH 

, lOX, ' •••••OBSTACLE  CONDITION^ • * • • ' 

c* 

«•« 

•OBSTACLE  BOUNDARY  CONDITION 

1 

' . 

. . .11 12 Jl' 

c 

2 

, ' . 

...J2 K1 K2’  ) 

READ ( 5 , • ) NOBS 

671  FORMAT 

(IH 

, 616) 

c 

c 

IF  ( NOBS  .NE.  0 ) THEN 

680  FORMAT 

(IH 

, lOX, ' ** •••SOURCES* •«**' / 

c 

1 

' . 

. . .11 12. . . .Jl. . . . J2' 

DO  20  III-l,NOBS 

2 

, ' , 

...Kl K2 S'  ) 

READ(5,*)  (lOBdll.J),  J-1,6) 

681  FORMAT 

(IH 

,6I6,1PE12.5) 

c 

c 

20 

CONTINUE 

RETURN 

END  IF 

c 

IF  ( NOBS  .EQ.  0 ) GO  TO  55 

END 

SUBROUTINE  ARAIN 
C 

C*****DECLARATION  OF  COMMON 
C 

c 

PARAMETER  ( L-24 , M-26 , N-19) 

C 

COMMON  /CONTR/ 

1 TITLE(20) 

2,  HPE  ,DT 

3, KSTM, INIC,MAXT, VOLM,KSTP 

4, ZCD  ,2SC  ,HZSC 
C 

COMMON  /BOON/ 

1 DX(L+1)  ,DY(M+1)  , DZ  (N+1)  , NOBS,  lOBdOO,  6) 

2,NIN  ,IIN(100,7),UINd00),  NSOURCES,  ISOUR- 
CE (100,  6)  , SdOO) 

C 

COMMON 

2 U (L,M,N) 

3,D 

5,  C 


(L,M, N) , W 
(L,M,N) ,CFX(L,M,N) 
(L,M,N) ,CC(L,M,N) 


7. XD  (D.YD  (M),ZD  (N) 

8. HX  (L).HY  (M),HZ  (N) 

9.  XIP (L)  . YIP (M) .ZIP (N) 


WRITE(6, 680) 

WRITE  (10,  680) 

IF (NSOURCES. NE. 0)  THEN 

DO  60  I-l, NSOURCES 

WRITE (10, 681)  (ISOURCE (I, J) , J-1, 6) . S (I) 
60  WRITE(6.681)  ( ISOURCE ( I . J) , J-1 , 6) . S ( I ) 

END  IF 


COMMON  /SCAL/  ICON ( 3 ), NPRINT 

OPEN  (22, FILE-' flow.dat' , FORM-' UNFORMATTED' ) 
READ (22)  U. V. W, CC, D, CC, CFX, DX, DY, DZ. KK 
CLOSE(22) 

•ARRAY  INITIALIZATION 


•FORMAT  STATEMENT 


DO  100  K-1,N 
DO  100  J-1,M 
DO  100  I-1,L 
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D(I, J,K) 


+ D(I.J+1.K) 


CFX(I,J,K)  - 0.0 

C(I,J,K)  - 0.0 

IF(CC(I, J.K) .NE.0.0)  THEN 

D(I,J,K)  - ZSC  • Dd.  J,K)  **2/CC(I,  J,K) 

ELSE 

D(I,J,K)  - 0.0 
END  IF 

CC(I, J,K)  - 0.0 
C 

100  CONTINUE 

DO  110  I-1,L 
HX(I)  - 1.0/DX(I) 

XD(I)-2.0/(DX(I)+DX(I+l) ) 

XIP(I)-DX{I+1) / (DX<I) +DX(I+1) ) 

110  CONTINUE 

DO  120  J-1,M 
HY(J)  - 1.0/DY(J) 

YD (J) -2.0/ (DY(J) +DY(J+1) ) 

YIP (J)-DY(J+1) / <DY(J) +DY(J+1) ) 

120  CONTINUE 

DO  130  K-1,N 
HZ(K)-1.0/D2(K) 

2D (K) -2.0/ (DZ (K) +D2 (K+1) ) 

ZIP (K)-DZ (K) / (DZ (K) +DZ (K+1) ) 

130  CONTINUE 
C 
C 

RETURN 

C 

END 

C 

C*****RQOH  AIR  CONTAMINANT  DISPERSAL  SOLVEC 
C 

SUBROUTINE  SOLVEC 
C 
C 

PARAMETER  (L-24 , M-26, N-19) 

C 

INTEGER  TIME 

DIMENSION  DFX(L,M,N),  DFY ( L, M. N) , DFZ ( L,  M,  N) 

C 

COMMON  /CONTR/ 

1 TITLE(20) 

2, HPE  .DT 

3, KSTM, INIC,MAXT,VOLM,KSTP 

4, ZCD  ,ZSC  ,HZSC 
C 

COMMON  /BCON/ 

1 DX(L+1)  ,DY(M+1)  , DZ (N+1 ) . NOBS. lOB (100, 6) 

2.NIN  , IINdOO,  7)  , UIN(IOO)  .NSOURCES,  ISOUR- 
CE (100, 6) , S (100) 

C 

COMMON 

2 U (L,M,N),V  (L,M.N),W  (L,M,N) 

3.D  (L,M. N) , CFX(L,M, N) 

5, C  (L,M,N).CC(L,M,N) 

7. XD  (L),YD  (M),ZD  (N) 

8. HX  (L),HY  (M),H2  (N) 

9. XIP (L) , YIP (M) , ZIP (N) 

C 

C 

COMMON  /SCAL/  ICON ( 3 ) , NPRINT 
C 

c 

c 

CALL  BCONSUB 
C 

IF  ( INIC  .EQ.  1 ) KSTP  - 1 
IKSTP  - KSTP 
KSTP  - KSTP 
NSTP  - 0 
KTIM  - 0 
CAVE  - 0.0 
ENAV  -0.0 
C 

JTIMEl  - TIME ( ) 

WRITE(6,3000)  JTIMEl 
WRITE (10, 3000)  JTIMEl 

3000  FORMATdH  . ’’Initial  Time  is  ”,115,"  seconds”) 

C 

C****»WORK  VECTOR  INITIALIZATION 
C 

DO  1000  I-l.L 
DO  1000  J-l.M 
DO  1000  K-1,N 
DFXd,  J.K)  - 0.0 
DFYd,  J,K)  - 0.0 
DFZd,  J.K)  - 0.0 
CCd,  J.K)  - 0.0 
1000  CONTINUE 
C 

C*****EDDY  DIFFUSIVITY  INTERPOLATION 
C 

DO  40  K-2,N-1 
DO  40  J-2,M-1 
DO  40  1-2, L-1 
C 

DFXd, J.K)  - Dd,J,K)  • XIPd)  + D(I+1,J,K)  • ( 


1.0- XIPd)  ) 

DFYd, J.K)  - 

1.0- YIP(J)  ) 

DFZd.J.K)  - Dd.J.K) 

1.0- ZIP(K)  ) 

C 

40  CONTINUE 
C 

DO  45  K-1,N 
DO  45  J-1,M 
DO  45  I-1,L 
C 

DFXd. J.K)  - ( DFXd. J.K)  * HZSC  + HPE  ) • XD  (I ) 

DFYd. J.K)  - ( DFYd, J.K)  * HZSC  + HPE  ) * YD(J) 

DFZd.J.K)  - ( DFZd.J.K)  • HZSC  + HPE  ) * ZD(K) 

C 

45  CONTINUE 
C 

DO  1045  I-1,L 
DO  1045  J-l.M 
DO  1045  K-l.N 

DFXd, J.K)  - DFXd, J.K)  - 0.5  * U(I,J,K) 

C 

IF(DFX(I,  J.K)  .LE.  (-U(I,  J.K)  ) ) DFXd, J.K)  - -U(I.J,K) 
C 

IF(DFX(I,J,K) .LE.0.0)  DFX (I , J, K) -0 . 0 
C 

DFYd. J.K)  - DFYd, J.K)  - 0.5  * V(I,J,K) 

C 

IF(DFY(I.  J.K)  .LE.  (-V(I,  J.K)  ) ) DFYd, J.K)  - -V(I,J,K) 
C 

IF  (DFYd,  J.K)  .LE.0.0)  DFY  (I . J,  K) -0 . 0 
C 

DFZd.J.K)  - DFZd.J.K)  - 0.5  * W(I,J.K) 

C 

IF(DFZ(I.  J.K)  .LE.  (-Wd.  J.K)  ) ) DFZd.J.K)  - -Wd.J.K) 
C 

IF(DFZ(I. J.K) .LE.0.0)  DFZ (I , J. K) -0 . 0 
C 

1045  CONTINUE 

WRITE(6.3001) 

3001  FORMATdH  ."Starting  Solution  Loop") 

C 

200  CONTINUE 
C 

c 

C*****tERMINATION  CRITERIA 
C 

IF  ( (KSTP.GT.KSTM)  .OR.  (KTIM . GT . MAXT)  ) GO  TO  2000 
C 

C ^ 

DO  1050  I-1,L 
DO  1050  J-l.M 
DO  1050  K-1,N 
CFXd.J.K)  - 0.0 
CCd,  J.K)  - 0.0 
1050  CONTINUE 
C 

C*****CALCULATION  OF  CONVECTION-DIFFUSION  FLUX 
C 

DO  50  K-2.N-1 
DO  50  J-2,M-1 
DO  50  1-2, L-1 
C 

CFXd.J.K)  - DFXd, J.K)  * ( Cd.J.K)  - C(I  + 1,J.K) 

) 

C 

50  CONTINUE 
C 

DO  1055  I-l.L 
DO  1055  J-l.M 
DO  1055  K-l.N 

CFXd.J.K)  - CFXd,  J,K)+Cd,J,K)*U(I.J,K) 

1055  CONTINUE 
C 

C*****SET  C 
C 

DO  55  K-3.N-1 
DO  55  J-3,M-1 
DO  55  1-3, L-1 
C 

CCd, J.K)  - CCd, J.K)  + ( CFXd-l.J.K)  - CFXd.J.K) 

) * HXd) 

C 

55  CONTINUE 
C 

C*****CALCULATION  OF  CONVECTION-DIFFUSION  FLUX 
Y-DIRECTION 
C 
C 

DO  1150  I-l, L 
DO  1150  J-l.M 
DO  1150  K-l.N 
CFXd.J.K)  - 0.0 
1150  CONTINUE 

DO  150  K-2,N-1 
DO  150  J-2,M-1 
DO  150  1-2, L-1 


* YIP(J) 

• ZIP(K)  + D(I.J,K+1)  * ( 
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c 

CFX(I,J,K)  - DFy(I,J,K)  * ( C(I,J,K)  - C(I.J+1,K) 

) 

C 

150  CONTINUE 
C 

DO  1155  I-1,L 
DO  1155  J-1,M 
DO  1155  K-1,N 

CFX(I,J.K)  - CFXd,  J,  K) +C(I,  J,K)  *V(I,  J,K) 

1155  CONTINUE 
C 

C*****SET  C 
C 

DO  155  K-3,N-1 
DO  155  J-3,M-1 
DO  155  1-3, L-1 
C 

CC(I,J,K)  - CC(I,J,K)  + < CFX(I.J-1,K)  - CFX(I,J,K) 

) • HY(J) 

C 

155  CONTINUE 
C 

C**** ‘CALCULATION  OF  CONVECTION-DIFFUSION  FLUX 

Z-DIRECTION 

C 

DO  2150  I-1,L 
DO  2150  J-1,M 
DO  2150  K-1,N 
CFX(I,J,K)  - 0.0 
2150  CONTINUE 
C 

DO  250  K-2,N-1 
DO  250  J-2,M-1 
DO  250  1-2. L-1 
C 

CFXd.J.K)  - DFZd.J.K)  * ( Cd.J.K)  - Cd,J,K+l) 

) 

C 

250  CONTINUE 
C 

DO  1250  I-1,L 
DO  1250  J-l.M 
DO  1250  K-1,N 

CFXd.J.K)  - CFXd,  J,K)+Cd.  J.K) ‘Wd.  J.K) 

1250  CONTINUE 
C 

C****‘SET  C 
C 

DO  255  K-3,N-1 
DO  255  J-3.M-1 
DO  255  1-3, L-1 
C 

CCd.J.K)  - CCd.J.K)  + ( CFXd.J,K-l)  - CFXd.J.K) 

) * HZ(K) 

C 

255  CONTINUE 
C 

C““  OBSTACTLES  CHECKED 
C 

IF ( NSOURCES . NE . 0 ) THEN 
DO  400  III-l, NSOURCES 

11  - ISOURCEdll,  1) 

12  - ISOURCEdll. 2) 

J1  - ISOURCEdll. 3) 

J2  - ISOURCEdll,  4) 

K1  - ISOURCEdll,  5) 

K2  - ISOURCE  dll , 6) 

DO  400  I-Il, 12 

DO  400  J-J1.J2 
DO  400  K-K1,K2 

CCd.J.K)  - CCd.J.K)  + Sdll) 

400  CONTINUE 
END  IF 
C 

IF(NOBS.NE.O)  THEN 
DO  300  III-l, NOBS 

11  - lOBdll,  1) 

12  - IOBdII,2) 

J1  - IOBdII.3) 

J2  - IOBdII,4) 

K1  - lOBdll.  5) 

K2  - IOBdII,6) 

DO  300  I-Il. 12 
DO  300  J-J1.J2 
DO  300  K-K1,K2 
CCd.J.K)  - 0.0 

300  CONTINUE 
END  IF 


C 

DO  1300  I-l,  L 
DO  1300  J-1,M 
DO  1300  K-1,N 

Cd.J.K)  - Cd.J.K)  + DT  • CCd.J.K) 

1300  CONTINUE 
C 
C 

C CALCULATE  AVERAGE  CHANGES  OF  C 
C 

DCAVE  -0.0 
CAVE  - 0.0 
CMAX  - 0.0 
DCMAX  - 0.0 
IMAX  - 3 
JMAX  - 3 
KMAX  - 3 
IDMAX  - 3 
JDMAX  - 3 
KDMAX  - 3 
C 

DO  110  K-3.N-1 
DO  110  J-3,M-1 
DO  110  1-3, L-1 
CAVE  - CAVE  + C (I, J, K) 

DCAVE  - DCAVE  + CCd.J.K)  **2 

IF(Cd,  J.K)  .GT.CMAX)  THEN 

IMAX  - I 

JMAX  - J 

KMAX  - K 

CMAX  - Cd.J.K) 

END  IF 

If  (ABS(CCd,  J.K)  ) .GT. DCMAX)  THEN 
IDMAX  - I 
JDMAX  - J 
KDMAX  - K 

DCMAX  - ABS(CCd.  J.K)  ) 

ENDIF 

C 

110  CONTINUE 
C 

CALL  BCONSUB 
C 

C“  “‘CALCULATE  AVERAGE  CHANGES 
C 

CAVE  - CAVE  • VOLM 
DCAVE  - SORT (DCAVE  ‘ VOLM) 

C 

KTIM  - TIMEO  - JTIMEl 

IF(KSTP.EQ.IKSTP.OR.MOD(KSTP,20) .EQ.O)  WRITE(6,205) 

^ WRITE (6. 206)  KSTP, KTIM. CAVE, DCAVE, I- 

MAX.  JMAX.  KMAX,  CMAX. 

IIDMAX, JDMAX. KDMAX, DCMAX 
IF(KSTP.EQ.IKSTP.OR.MOD(KSTP.NPRINT) .EQ.O)  THEN 
C 

c 

IF(KSTP.EQ.IKSTP.OR.MOD(KSTP,20*NPRINT) .EQ.O) 
WRITEd0,205) 

C 

WRITE (10. 206)  KSTP, KTIM, CAVE, DCAVE, I- 
MAX,  JMAX,  KMAX,  CMAX, 

IIDMAX. JDMAX, KDMAX, DCMAX 
END  IF 
C 

205  FORMATdH  . KSTP  ..  KTIM' 

1 . ' CAVE' 

2 . ' DCAVE  ...I...J...K CMAX'  , 

3 ' . . .1.  . . J.  . .K DCMAX'  ) 

206  FORMATdH  , 216,  1P2E10 . 3 . 3 14 , IPEl  0 . 3 . 314  , IPEl  0 . 3 ) 
C 

C 

IF (MOD (KSTP. 100) .EQ.O)  THEN 

OPEN  (23. FILE-' UNIT23' , FORM-' UNFORMATTED' ) 

WRITE(23)  C.KSTP 

CLOSE(23) 

END  IF 

KSTP  - KSTP  + 1 
C 

GO  TO  200 
C 

2000  CONTINUE 
C 

RETURN 

END 

C 

SUBROUTINE  BCONSUB 
C 

c 

c 

PARAMETER  ( L-24 . M-26, N-1 9) 

C 

COMMON  /CONTR/ 

1 TITLE(20) 

2, HPE  ,DT 

3,  KSTM,  INIC.MAXT,  VOLM,  KSTP 
4.2CD  ,ZSC  .HZSC 

C 

COMMON  /BCON/ 
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1 DX(L+1)  .DY(M+1)  ,DZ (N+1) , NOBS, 108(100. 6) 

140  DO  251  J-J1.J2 

2,  NIN  , I IN (100, 7) ,UIN(100) , NSOURCES, ISOUR- 

DO  251  I-Il, 12 

CE(100,6) ,S(100) 

C 

C 

RAMI  - Dd.J.Kl)  + HPE 

COMMON 

RAM  - RAMI 

2 U (L,M,N),V  (L,M,N),W  (L,M,N) 

C(I,J,K2)  - SEV  / RAM  + CC 

3,D  (L,M,N),CFX(L,M,N) 

C 

5,C  (L,M,N)  ,CC(L,M,N) 

251  CONTINUE 

7,XD  (L),YD  (M),2D  (N) 

C 

8,HX  (L),HY  (M),HZ  (N) 

GO  TO  100 

9,XIP (L) , YIP(M) , ZIP (N) 

C 

C 

C* 

COMMON  /SCAL/  ICON (3 ) , NPRINT 

C 

C 

150  DO  261  K-Kl, K2 

C*****SET  FREE  SLIP  WALL  1,2 

DO  261  J-J1,J2 

C 

C 

DO  10  K-2,N~1 

RAMI  - HPE  + D(I1,J,K) 

DO  10  J-2,M-1 

RAM  - RAMI 

C 

C(I2,J.K)  - SEV  / RAM  * ( 

C (2. J,K)  - C (3  , J,K) 

+ 

Cdl,  J.K) 

C (L, J.K)  - C (L-1, J.K) 

C 

C 

261  CONTINUE 

10  CONTINUE 

C 

C 

GO  TO  100 

C**»**SET  FREE  SLIP  WALL  3,4 

C 

C 

c* 

•‘••HEAT  TRANSFER  COEFFICIENT 

DO  20  K-2,N“1 

) 

DO  20  1-2, L-1 

c 

C 

160  DO  271  K-K1.K2 

C (I,2,K)  - C (I,  3,K) 

DO  271  I-Il, 12 

C (I,M,K)  - C (I,M-1,K) 

c 

C 

RAMI  - Dd.Jl.K)  + HPE 

c 

RAM  - RAMI 

20  CONTINUE 

Cd,J2.K)  - SEV  / RAM  • ( 

C 

+ 

Cd.  J1,K) 

C*****SET  FREE  SLIP  WALL  5.6 

c 

C 

271  CONTINUE 

DO  30  J-2,M-1 

c 

DO  30  1-2, L-1 

GO  TO  100 

C 

c 

C (I,J.2)  - C (I.J.  3) 

c* 

••••HEAT  TRANSFER  COEFFICIENT 

C (I,J,N)  - C (I,J,N-1) 

) 

C 

c 

30  CONTINtre 

170  DO  281  J-Jl, J2 

C 

DO  281  I-Il, 12 

C*****BOUNDARY  CONDITION  SET 

c 

C 

RAMI  - HPE  + D(I,J,K1) 

DO  100  III-1,NIN 

RAM  - RAMI 

C 

Cd,J,K2)  - SEV  / RAM  * ( 

11  - IINdll,  2) 

+ 

Cd.  J,K1) 

12  - IINdll, 3) 

c 

J1  - IINdll, 4) 

281  CONTINUE 

J2  - IINdll, 5) 

c 

K1  - IINdll,  6) 

GO  TO  100 

K2  - IINdll,  7) 

c 

C 

c* 

••••WALL  TEMPERATURE  SPECIFIED 

SEV  - UINdll) 

c 

C 

180  DO  291  K-K1,K2 

GO  TO 

DO  291  J-J1,J2 

(110,  120, 130,  140,  150,  160, 170, 180,  190. 200), IIN  (III, 1) 

c 

C 

291  Cd2.J,K)  - 2.0  * SEV  - CC 

C*»***C  VALUE 

c 

C 

GO  TO  100 

110  DO  161  K-K1.K2 

c 

DO  161  J-J1,J2 

c* 

••••WALL  TEMPERATURE  SPECIFIED 

DO  161  I-Il, 12 

c 

161  C d,J,K)  - SEV 

190  DO  301  K-K1.K2 

GO  TO  100 

DO  301  I-Il, 12 

C 

c 

C*****HEAT  FLUX  SPECIFIED  ( X DIRECTION  ) 

301  Cd,J2.K)  - 2.0  * SEV  - CC 

C 

c 

120  DO  231  K-K1,K2 

GO  TO  100 

DO  231  J-J1,J2 

c 

C 

c* 

••••WALL  TEMPERATURE  SPECIFIED 

RAMI  - Ddl,J,K)  +HPE 

c 

RAM  - RAMI  * HXdl) 

200  DO  311  J-J1,J2 

Cd2.J.K)  - SEV  / RAM  + 0(11, J.K) 

DO  311  I-Il, 12 

C 

c 

231  CONTINUE 

311  C(I,J,K2)  - 2.0  • SEV  - CC 

C 

c 

GO  TO  100 

GO  TO  100 

C 

c 

C****»HEAT  FLUX  SPECIFIED  ( Y DIRECTION  ) 

c* 

***• 

C 

c 

130  DO  241  K-Kl. K2 

100  CONTINUE 

DO  241  I-Il, 12 

c 

C 

CALL  BSET 

RAMI  - Dd.Jl.K)  + HPE 

c 

RAM  - RAMI  * HY(Jl) 

RETURN 

C(I.J2,K)  - SEV  / RAM  + C(I,J1,K) 

c 

C 

END 

241  CONTINUE 

c 

C 

c 

DUMMY  ROUTINE 

GO  TO  100 

c 

C 

SUBROUTINE  BSET 

C»**»*HEAT  FLUX  SPECIFIED  ( Z DIRECTION  ) 

c 

C 

RETURN 

HY{J1) 
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END 


C 

SUBROUTINE  OUTPUT 
C 

CHARACTER*^  THEMA, PLAN, TERM 
C 

PARAMETER  (L-24,M-26, N-19) 

C 

COMMON  /CONTR/ 

1 TITLE(20) 

2, HPE  ,DT 

3, KSTM, INIC,MAXT, VOLM,KSTP 

4, ZCD  ,ZSC  ,HZSC 

c 

COMMON  /BCON/ 

1 DX(L+1)  ,DY(M+1)  ,DZ(N+1),NOBS,IOB(100,6) 

2,NIN  , I IN (100, 7) , UIN(IOO) , NSOURCES, ISOUR- 
CEdOO,  6)  ,S(100) 

C 

COMMON 

2 U (L,M,N),V  (L,M,N),W  (L,M,N) 

3,D  (L,M,N),CFX(L,M,N) 

5, C  (L,M,N) ,CC(L,M,N) 

7, XD  (L),YD  (M),ZD  (N) 

8, HX  (L),HY  (M).HZ  (N) 

9, XIP  (L)  , YIP  (M)  , ZIP  (N) 

C 

C 

COMMON  /SCAL/  ICON (3) , NPRINT 
C 

THEMA  - ' C' 

200  CONTINUE 
C 

C*****Y-Z  PLANE 
C 

PLAN  - ' Y-Z' 

TERM  - » I 
IC  - ICON(l) 

INDEX  - 1 
C 

CALL  PRINTl  (THEMA, PLAN, TERM, IC, INDEX) 

C 

C****»2-X  PLANE 

C 

PLAN  - ' Z-X' 

TERM  - ' J 
IC  - ICON(2) 

INDEX  - 2 
C 

CALL  PRINTl  (THEMA, PLAN. TERM, IC, INDEX) 

C 

C*»»»»X-Y  PLANE 
C 

PLAN  - » X-Y' 

TERM  - ' K 
IC  - ICON(3) 

INDEX  - 3 
C 

CALL  PRINTl  (THEMA, PLAN, TERM, IC,  INDEX) 

C 

RETURN 

END 

C 

C 

C 

c 

c 

C»«*»*pRiNT*  *****«****'***«********•**•**•******  ******** 

C 

SUBROUTINE  PRINTl (THEMA. PLAN, TERM, IC, INDEX) 

C 

CHARACTER*4  THEMA, PLAN . TERM 
C 

PARAMETER  (L-24,M-26, N-19) 

C 

COMMON  /CONTR/ 

1 TITLE(20) 

2, HPE  .DT 

3.  KSTM. INIC.MAXT, VOLM. KSTP 

4, ZCD  ,ZSC  ,HZSC 
C 

COMMON  /BCON/ 

1 DX(L+1)  ,DY(M+1)  . DZ  (N+1)  , NOBS,  lOBdOO,  6) 

2,NIN  , I IN  (100, 7). UIN(IOO) .NSOURCES, ISOUR- 
CEdOO,  6)  ,S  (100) 

C 

COMMON 

2 U (L,M,N).V  (L,M.N),W  (L,M,N) 

3,D  (L.M.N)  .CFX(L,M,N) 

5. C  (L.M.N)  ,CC(L,M.N) 

7, XD  (L).YD  (M),ZD  (N) 

8, HX  (L),HY  (M),HZ  (N) 

9,  XIP  (L)  , YIP  (M)  .ZIP  (N) 


C 

C 

COMMON  /SCAL/  ICON ( 3 ). NPRINT 


C 

C** 

C 


»**OUTPUT  TITLE 

WRITEdO,  600)  TITLE 

WRITE (10, 601)  THEMA, PLAN, TERM. IC.KSTP 
GO  TO  ( 10,20,30  ), INDEX 

•**Y-Z  PLANE 


10  CONTINUE 
KA  - 1 

100  CONTINUE 

ECK  - 6 * ( KA-1  ) + 1 
KE  - 6 * KA 

IF  ( (KE-N)  .GE.  0 ) GO  TO  103 

WRITEdO, 602)  (K,K-KK,KE) 

WRITEdO, 101)  (J.  (CdC,  J.K)  ,K-KK,KE)  , J- 

WRITEdO,  102) 

KA  - KA  + 1 
GO  TO  100 

103  CONTINUE 

WRITEdO,  602)  (K,K-KK.N) 

DO  104  J-1,M 

WRITEdO.  101)  J,  (CdC,  J,K)  , K-KK,  N) 

104  CONTINUE 

RETURN 

•**»*Z-X  PLANE 

20  CONTINUE 
lA  - 1 

200  CONTINUE 

II  - 6 * ( IA-1  ) + 1 
IE  - 6 * lA 

IF  ( (lE-L)  .GE.  0 ) GO  TO  203 

WRITEdO,  602)  (I.  I-II,  IE) 

WRITEdO, 101)  (K,  (C(I,  IC.K)  , I-II,  IE)  .K- 

WRITEdO,  102) 
lA  - lA  + 1 
GO  TO  200 


203  CONTINUE 

WRITE (10, 602)  (I. I-II, L) 

DO  204  K-1,N 

WRITEdO. 101)  K,  (C(I,  IC,K)  . I-II,  L) 

204  CONTINUE 

RETURN 

*****X-Y  PLANE 

30  CONTINUE 
JA  - 1 

300  CONTINUE 

JJ  - 6 * ( JA-1  ) + 1 
JE  - 6 * JA 

IF  ( (JE“M)  .GE.  0 ) GO  TO  303 

WRITEdO,  602)  (J,  J-JJ,  JE) 

WRITEdO,  101)  (I,(C(I,J,IC).  J-JJ,  JE)  , I- 

WRITEdO,  102) 

JA  - JA  + 1 
GO  TO  300 


3 CONTINUE 

WRITEdO,  602)  (J,  J-JJ,M) 

DO  304  I-l, L 

WRITEdO,  101)  I,  (C(I,  J,  IC)  , J-JJ,M) 

4 CONTINUE 

RETURN 

* ‘FORMAT  STATEMENT 


101  FORMAT  (IH  ,I5.6E12.5) 

102  FORMAT  (IH  III  ) 

600  FORMAT  (IH  ///IH  ,20A4) 

601  FORMAT  (IH  , A4 ,' -DISTRIBUTION  ON  ' , A4 , ' 

1 , ' KST 

602  FORMAT  (IH  , 6112) 

END 


l.M) 


■1,N) 


■1,L) 


PLAN' , A4, 14 
P-' , 110///) 
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with  either  an  Intel  80387  or  a Weitek  3167  coprocessor  under  an  extended 

DOS  operating  system.  The  relative  performance  of  these  systems  for  the 

examples  considered  in  this  report  are  1 second  per  iteration  for  the  Cyber 

205,9  seconds  for  the  Compaq  386/25  with  a Weitek  3167  copressor,  30  seconds 

for  the  Compaq  386  with  a 387  copressor  and  90  seconds  for  the  Sun  3/260 

under  UNIX.  Isothermal  simulations  seem  to  converge  in  approximately 

10,000  iterations  and  non- iso thermal  simulations  in  approximately  30,000  iterations. 

Several  ideal  and  practical  applications  of  the  model  are  presented  and  the 

results  of  the  simulations  are  compared  with  existing  experimental  data  contained 

in  the  literature. 


